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In the computer universe lurk BASIC, FORTRAN, PASCAL, 
and dozens of other deadly demons. This book is your.magic sword. 
It slices through 22 high-level languages and 9 assembly languages. 


Edition 10.2, © 1982 by Russ Walter, $3.70. To order,-see page 101. 
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Dear You! 

Here's the final volume of The Secret Guide to Computers. It begins with 
PERSONAL COMMENTS about computers, my own computer language, and my ea 
own computerized life. Then it launches you into the glories of 22 HIGH-LEVEL = 
LANGUAGES. Finally, you crawl into the cellars of the computer's mind, where ;«< 
you explore mysterious LOW-LEVEL LANGUAGES— the machine and assembly §: 
languages for nine CPU families. : 

Studying all those languages and computers turns you into an exhilerated 
but exhausted virtuoso who wants to go to bed. In bed, you'll suffer from 
sexual nightmares about computers and languages. When you do, call me at 
617-266-8128. You can call 24 hours: I'm almost always in, I sleep only lightly 
and I'll be glad to counsel your troubled computerized soul. 

Your faithful counselor, 


ae ma gre 


PERSONAL COMMENTS Russy-poo Walter 


Using the Guide: Santa's helpers, curriculum, future & past editions, course 0 
Industry news: delays, goners, superstars, spelling, low cost, bug, EASY 3 


HIGH-LEVEL LANGUAGES Se S LOW-LEVEL LANGUAGES 


HOW THE CPU THINKS 


Eight categories 8 Prepare yourself 64 
Family tree 8 Words 64 
Ancient languages for engineering: FORTRAN & APT 9 Character codes 67 
Languages for statistics: SPSS & STATPACK & others 9 BCD 67 
Languages for simulation: SIMSCRIPT & GPSS & DYNAMO 9 _ Kinds of languages 68 


Languages for business: COBOL & RPG & others 9 Electronic boxes 68 
Languages for structured programming: ALGOL & others 10 Program counter 69 
Languages for data bases: SYSTEM 1022 & DBASE 2 10 Arithmetic/logic unit 70 
Exotic languages: LISP & COMIT & SNOBOL & FORTH 10 + Flags 71 
Interactive languages for beginners: BASIC & others 10 Speed 73 
Which language is the best? 10 ~=Parity 74 
The top 22 languages 11 UAL 74 
CX Addressing modes 76 
CLASSICAL LANGUAGES (S3aiaeet* Ese 
APT: why use APT, example = 14 THE CPU'S MAP 
FORTRAN: how FORTRAN developed, is FORTRAN good?15 Nine maps 78 
ALGOL: simple programs, fancy features, history, IBM 16 PDP-8 79 
DYNAMO: symbols, world dynamics, other uses, history 25 PDP-10 79 
RPG: which computers prefer RPG, example 28 PDP-11 79 
LISP: how to program, why LISP, improvements. "1.5" 31 CDC 80 
COBOL: how COBOL developed, its flaws, its popularity 37 IBM 360 80 
GPSS: what it analyzes, example, alternative languages 38 Microcomputers 80 
SNOBOL: simple examples, fancy features, history 40 
BASIC: Kemeny, why, versions, popularity, competitors 43 INSTRUCTION SETS 
APL: simple programs, fancy features, love or hate 46 PDP-10 81 
PL/I: how it developed, features, versions, critique ol PDP-8 86 
SPSS: simple example, fancy features QS 54 PDP-1l 87 
*, CDC 88 
MODERN LANGUAGES IBM 360 90 
LOGO: how it developed, 3 competing versions, critique 57 Microcomputers 94 
FORTH: advantages, disadvantages, history, sources 60 
PILOT: why it's better than BASIC, popularity 61 
PASCAL: history, when to use PASCAL, popularity 62 
C: history, UNIX, popularity, best book, why use C? 62 
VISICALC: how to find out about VISICALC 62 
ADA: how ADA developed, the future, best book 63 
DBASE 2: purpose, price, availability, best book 63 


EASY: how to find out about EASY 63 
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Personal comments 


SANTA'S HELPERS 
Some readers think I'm Santa Claus, because I help them for free. I couldn't do it 
alone. Here's a list of Santa's helpers (in alphabetical order): 


Cynthia Cobb, Systems Analyst, First National Bank of Boston 
Mike Coffey, Technical Editor, Creative Computing Magazine 


Larry Govoni, Director, Lawrence Govoni Microcomputer Training School 

Adam Green, President, Softwarebanc 

Priscilla Grogan, Business Manager & Computer Tutor, The Secret Guide to Computers 
Wally Growney, Chair of the Department of Business Administration, Susquehanna U. 


George Hadley, Microcomputer Laboratory Consultant, Paul Smith's College 
Harriet Morrill, Computer Instructor, The Hotchkiss School 


They feed me "inside" news about the microcomputer industry, help me teach courses, 
and give me useful criticisms of The Secret Guide to Computers, so that I can continually 
improve it. All of them (except Wally) were formerly my students. Thanks, gang! 

I'd also like to thank all readers who've phoned or written, to give me useful feedback 
and tips. Special mention goes to Tony Saletan, who managed to find hidden errors that 
other readers didn't notice. The next edition of the Guide will reflect the suggestions 
made by Tony and others. 

To add your own name to the list of "Santa's helpers", give me lots of advice, 
continuously. I need it! 


CURRICULUM 
The material in The Secret Guide to Computers can be divided into four categories 
(elementary, intermediate, advanced, and very advanced), as follows: 


Elementary 

How to program in BASIC, up to but not including subscripts (volume 1, up to page 78) 
How to buy computer equipment (all of volume 3, and the first 31 pages of volume 4) 
Kinds of computer applications (volume 5, up to page 7) 

What software to buy (volume 5, pages 64-70) 


Intermediate 

Further programming in BASIC (pages 78-88 of volume 1, and up to page 81 of volume 2) 
Operating systems (volume 4, pages 42-48) 

How to get a job in the computer industry (volume 4, pages 49-55) 

Periodicals you should subscribe to (volume 4, page 71) 

Intensive courses you can take (volume 4, pages 72-77) 

Examples of weird computer applications (volume 5, pages 8-63) 


Advanced 

Tricky programming in BASIC (volume 2, pages 82-95) 

Internals: number systems, character codes, and kinds of chips (volume 4, pages 32-41) 
Popular languages: FORTRAN, PASCAL, and COBOL (all of volume 7) 


Very advanced 

History of the computer industry (volume 4, pages 56-64) 

How to spell computer buzzwords (volume 4, page 65) 

Bibliography of books you should buy from other publishers (volume 4, pages 66-70) 
Hassles in applications (all of volume 6) 

Hassles in languages (all of volume 8) 


Page 1: Personal comments 


The elementary topics are enough to make you "computer literate". The intermediate 
topics are enough to get you a computer-related job. The advanced topics are enough 
to make people think you're smart. The very advanced topics are enough to make you 
an expert. 

If you're teaching a short computer course to the general public, cover all the topics 
that are elementary. If the course is longer, also cover the topics that are intermediate. 
If the course is even longer, also cover the topics that are advanced. If the course is 
long enough to be completely thorough, also cover the topics that are very advanced. 


FUTURE EDITIONS 

We continuously improve The Secret Guide to Computers. The next edition will contain 
more information about how to program the newest computers (the Commodore VIC, 
the Radio Shack Color Computer, and the IBM Personal Computer). It will place heavier 
emphasis on Microsoft BASIC; for example, it will begin by discussing immediate mode 
(where you say PRINT without a line number in front), and it will avoid the word STOP 
(it will replace STOP by END). It will rearrange the material, to follow the curriculum 
I recommend ("Elementary" then "Intermediate" then "Advanced" then "Very Advanced"). 

Whenever you order The Secret Guide to Computers, we'll send you the newest 
edition available at that time. If you have any suggestions for further improvements, 
write or phone. 


PAST EDITIONS 
I wrote The Secret Guide to Computers because I was teaching classes and didn't want 
to force my students to take notes. I gave the students my own notes; over the years, 
my "notes" have lengthened, so that today the notes are 650 pages long, bound in 
8 volumes, and called "the tenth edition of The Secret Guide to Computers". 
Here's a quick history: 


edition 0, © 1972, 17 pages, in 1 volume, explained BASIC for HP-2000 computers 
edition 1, © 1972, 12 pages, in 1 volume, explained BASIC for PDP-10 computers 
edition 2, © 1972, 20 pages, in 1 volume, explained JOSS & BASIC & FORTRAN 
edition 3, © 1972, 32 pages, in 1 volume, explained JOSS & BASIC & FORTRAN 
edition 4, © 1973, 63 pages, in 2 volumes, expluined JOSS&BASIC £ALGOL&FORTRAN 
edition 5, © 1973, 73 pages, in 1 volume, explained JOSS&BASIC &£ALGOL&FORTRAN 
edition 6, © 1974, 260 pages, in 3 volumes, explained programming & applications 
editions 7&8&9, © 1976&1977&1978&1979, 410 pages, in 6 volumes, explained all 
edition 10, © 1980&1981&1982, 650 pages, in 8 volumes, explained all 


Page 2: Personal comments 


BARGAIN BOOKS 
Volume 1 of The Secret Guide to Computers costs just $3.70. But what if you can't 
afford even $3.70? For example, suppose you're teaching 30 students but can't afford 
to spend $3.70 per student. 

Here's a solution. Instead of asking for volume 1 of the tenth edition, ask for 
volume 1 of the ninth edition, which we still have in stock. Volume 1 of the ninth 
edition costs just $2.75; moreover, you can get huge discounts, so that the books 
are almost free: 


If you buy 1 copy, you pay just $2, 75. 

If you buy 2 copies, you get a 20% discount, so you pay just $2.20 per copy. 
If you buy 3 copies, you get a 30% discount, so you pay just $1. 925 per copy. 
If you buy 5 copies, you get a 40% discount, so you pay just $1.65 per copy. 
If you buy 10 copies, you get a 50% discount, so you pay just $1. 375 per copy. 
If you buy 30 copies, you get a 60% discount, so you pay just $1.10 per copy. 
If you buy 120 copies, you get a 70% discount, so you pay just 822¢ per copy. 
If you buy 1000 copies, you get an 80% discount, so you pay just 55¢ per copy. 


If you're a teacher, you'll particularly like volume 1 of the ninth edition, because: 
It contains hardly any sexual remarks. 


The examples work on all the popular computers— even the computers that are 
old-fashioned. 


It's briefer than volume 1 of the tenth edition, and is therefore more to-the-point. 


In spite of its brevity, it covers more topics than volume 1 of the tenth edition. It 
even includes many of the topics that are in volume 2 of the tenth edition. 


Many schools are choosing volume 1 of the ninth edition, instead of volume 1 of the 
tenth edition. How about you? Although I personally prefer the tenth edition over 
the ninth (because the tenth edition covers the newer microcomputers, contains more 
examples, and encourages a better programming style), you might prefer the ninth. 
To order, write or phone. If you write, say specifically, "Send volume 1 of the ninth 
edition. Don't send the tenth edition." 


A COURSE IN YOUR OWN HOME TOWN 
Would you like me to teach a course in your own home (or school or office), to you 
and an intimate group of your friends? Here's how to compute the cost. 
First, find out which zone you're in. 


Zone 1 = New England (ME, NH, VT, MA, RI, and CT) 

Zone 2 = Mid-Atlantic (NY, NJ, DE, MD, and PA) and southeastern Canada 
Zone 3=other U.S. east of the Mississippi River 

Zone 4=U.S. (west of the Mississippi River) and Europe 

Zone 5 = the rest of the world 


Next, estimate how many people will be attending the course. Just yourself? Or a 
group of you and your friends? If a group, how many people are in the group? The 
number of people in the group is called the enrollment. 

This chart gives the daily cost: 


Daily cost Daily cost Daily cost Daily cost Daily cost 
Enrollment for zone 1 for zone 2 for zone 3 for zone 4 for zone 5 


1-40 $650 $800 ga $1100 $1250 


41-80 $800 $1000 $1200 $1400 $1600 
81-121 $950 $1200 $1450 $1700 $1950 
121-160 $1100 $1400 $1700 $2000 $2300 


161-200 $1250 $1600 $1950 $2300 $2650 


Page 3: Personal comments 


For example, to teach a course to 40 people in zone 1 costs $650 per day. By using that 
$650, I pay for my own transportation, my lodging, my computers (which I bring with 
me! ), and any additional staff that I need to bring. I own about 15 computers and a 
gigantic collection of peripherals and software; I'll bring many (or all!) of the computers 
with me, at no extra cost to you. The $650 includes all expenses except renting the 
classroom (but maybe a friend will give you a classroom free?), advertising the course 
(but maybe you can do it by word of mouth?), feeding the students (buy maybe you can 
tell them to bring their own sandwiches?), and books (which you can buy from me at 
discount or omit altogether). 

The "daily cost" gives you unlimited instruction for a full 24-hour period: I'll teach 
for as many of those 24 hours as you like. I'll arrive before that 24-hour period, to set 
up the computer equipment and fine-tune the curriculum, at no additional charge to you. 
I'll teach whatever you like. For most groups, I recommend the 2-day curriculum given 
on page 77 of volume 4; if you prefer, I can condense it into 1 day, or add extra topics. 

If the enrollment is very large, each student can pay very little. For example, 
if you're in zone 1 and the enrollment is 200, the daily cost is just $1250, which you 
can get by charging each student just $6.25. When was the last time you took a 24-hour 
course for just $6, 25? 

You can cut your costs even further, in several ways. For example, suppose you 
want me to teach 80 people but can't afford the 80-person rate. You can get the 40-person 
rate instead, by having me speak to 40 people in the morning and the other 40 people 
in the afternoon. I'll charge you just the 40-person rate, since no more than 40 
people are in the room at once. 

Or suppose you want me to speak for 2 days, but can't afford the 2-day rate. 

On the tirst day, have me speak during just the afternoon and evening; on the second 
day, have me speak during just the morning; since the entire event fits into 24 hours, 
I charge you just the one-day rate. 

For details, phone me at 617-266-8128, anytime. If you pick a month, I'll tell you 
which days of that month are still available. My schedule is filling up quickly, so 
call soon. If you later change your mind (because you can't find enough students), 
you can cancel the course— even at the last minute— without penalty. Pay only when 
and if the course meets. 


DELAYS 
The entire computer industry is delayed: 
Computer Delayed products 
Commodore VIC-20 disk drive 


"Super-Expander" ROM Cartridge (for high-res graphics) 


Radio Shack Color Computer Color Scripsit ROM cartridge (for word processing) 
Spectaculator ROM cartridge (like Visicalc) 


Radio Shack Model 3 Super Scripsit disk (for word processing) 
Profile 3 Plus (for storing data on disks) 


Osborne 1 video monitor that displays 80 characters per line 
battery (to eliminate the need for an electrical outlet) 
Atari 800 Microsoft BASIC disk (for the best version of BASIC) 


Microsoft BASIC ROM cartridge (for computers without disks) 


Each of those delayed products was still not available at the beginning of 1982, even 
though the manufacturers had promised they'd be available long before that. Maybe 
some of those products will never come? Those ridiculously long delays make customers 
think the manufacturers are liars. 


NO LONGER AVAILABLE 
"Mark Gordon", a discount dealer in Massachusetts, has gone bankrupt. Also, Apple 
Computer Company has stopped shipping Apples to mail-order dealers; so "discount 
mail-order prices" have been eliminated. 
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SUPERSTARS 
In 1981, Apple Computer Company began advertising on television. The ads featured 
television-star Dick Cavett, who said he liked his Apple because it handles Visicalc. 
Apple's competitors got jealous, and decided to find their own superstars. Here's 
who they found: 


Manufacturer Superstar who endorses the computer 

Apple Dick Cavett, who hosts a television talk show 

Radio Shack Isaac Asimov, who writes science-fiction 

Commodore William Shatner, who played the role of "Captain Kirk" in Startrek 
Texas Instruments Bill Cosby, the comedian 

Mattel George Plympton, the football quarterback 

IBM an imitation of Charlie Chaplin 


How do you make a superstar endorse your computer? You can pay him. But there 
are other, more devious ways. For example, the famous author Isaac Asimov once said 
he didn't like word processors. Shortly afterwards, he got a surprise: he found on his 
doorstep a Radio Shack Model 2, with a word-processing program. It was a gift from 
Radio Shack. Isaac Asimov tried it, liked it, and has been endorsing Radio Shack ever 
since. 

Gee whiz, I wish somebody would deposit a fancy computer on my doorstep! I guess 
I'll have to wait until I get as famous as Isaac. 


SPELLING 
A floppy disk is also called a diskette. Ignorant advertisers are starting to write 
"diskett" instead of "diskette". 
The correct spelling is "diskette", not "diskett". 


FIVE LOW-COST COMPUTERS 
If you're planning to buy a low-cost computer, begin by looking at these five, which 
are my favorites: 


Commodore's VIC-20 is the least expensive decent computer. It lists for just $300; 
discount dealers charge about $270. 


Radio Shack's 16K Color Computer with Extended BASIC is the easiest computer for 

a beginner to program. Advanced accounting, advanced graphics, and advanced music 
are all fantastically easy to program. The computer deserves a lot of praise; if you've 
never it it, you'll be happily surprised. It lists for $599; discount dealers charge 
about $470. 


Radio Shack's Model 3 is the least expensive computer that has a large software library 
on disks. The 2-disk 48K version now lists for $2495; discount dealers charge about $2100. 


The Apple 2 Plus has more software than any other computer. The price for a 1-disk 
system theoretically starts at about $2100, but be prepared to spend a lot extra for 
"options". 


The IBM Personal Computer combines the best features of most other computers, but 
it's expensive (a 1-disk system costs about $3000), has little software yet, and is not 
available at discount: in fact, Computerland often sells it for more than IBM's 
recommended list price. Also, if you buy from Computerland (instead of directly from 
IBM), IBM will refuse to answer your technical questions. 


For the latest news about those computers and their less desirable competitors 
(such as Sinclair, Atari, Texas Instruments, NEC, and Osborne), phone me anytime. 


BIG, BAD BUG 
Commodore's VIC-20 handles your entire program incorrectly, if your program contains 
an INPUT statement that asks a long question (more than 22 characters). To avoid the 
mess, shorten the question or transfer the question to a PRINT statement instead. 
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EASY 
EASY is a language I've been developing. It combines the best features of all other 
languages. It's easy to learn, because it uses just these twelve keywords: 


SAY and GET and LET 
REPEAT and SKIP and HERE 
IF and PICK and LOOP 
PREPARE and DATA and HOW 


Let's look at them. 

SAY. EASY uses the word SAY instead of BASIC's word PRINT, because SAY is 
briefer to type. For example, if you want the computer to say the answer to 2+2, give 
this command: 


SAY 2t2 

The computer will say the answer: 

i: 

Whenever the computer prints, it automatically prints a blank space afterwards, and 
does not automatically press the return key. So if you run this program— 


SAY "LOVE" 
SAY "HATE" 


the computer will say this: 

LOVE HATE 

Here's a fancier example: 

SAY "LOVE" AS 3 AT 20 15 TRIM ! 


The "AS 8" is a format: it makes the computer print just the first 3 letters of LOVE. The 
"AT 20 15" makes the computer begin printing LOVE at the screen's pixel whose X 
coordinate is 20 and whose Y coordinate is 15. Normally, the computer prints a blank 
space after everything, but the word TRIM suppresses that blank space. The exclamation 
point makes the computer press the return key afterwards. Here's another example: 


SAY TO SCREEN PRINTER HARRY 


It means that henceforth, whenever you give a SAY command, the computer will print 
the answer simultaneously onto your screen, onto your printer, and onto a disk file 
named HARRY. If you ever want to cancel that "SAY TO" command, give a "SAY TO" 
command that contradicts it. 

GET. EASY uses the word GET instead of BASIC's word INPUT, because GET is 
briefer to type. The command GET X makes the computer wait for you to input a value 
of X. Normally, the GET command is preceded by a SAY command that makes the 
computer ask a question. You can make the GET command fancy, like this: 


GET X AS 3 AT 20 15 WAIT 5 


The "AS 3" tells the computer that X will be just 3 characters; the computer waits for 
you to type just 3 characters and doesn't require you to press the return key afterwards. 
The "AT 20 15" makes the computer move to pixel 20 15 before your typing begins, so 
your input appears at that part of the screen. The "WAIT 5" makes the computer wait 
just 5 seconds for your response. It sets TIME equal to the number of seconds you took 
to reply, unless you took too long, in which case it sets TIME equal to -1. 
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LET. The LET statement resembles BASIC's. For example, you can say: 
LET R=4 
To let R be a random decimal, type: 
LET R=RANDOM 
To let R be a random integer from 1 to 6, type: 
LET R=RANDOM TO 6 
To let R be a random integer from -3 to 5, type: 
LET R=RANDOM FROM -3 TO 5 


REPEAT. If you put the word REPEAT at the bottom of your program, the computer 
will repeat the entire program again and again, forming an infinite loop. 

SKIP. If you put the word SKIP in the middle of your program, the computer will 
skip the bottom part of the program. SKIP is like BASIC's STOP or END. 

HERE. In the middle of your program, you can say: 


HERE IS FRED 


An earlier line can say SKIP TO FRED; a later line can say REPEAT FROM FRED. 
The SKIP TO and REPEAT FROM are like BASIC's GO TO. 
IF. In your program, a line can say: 


IF X<3 


Underneath that line, you must put some indented lines. The computer will do the 
indented lines, if X<3. Problem: suppose a student's score is from 0 to 100; if the 
student's score is 100, make the computer say "PERFECT"; if the score is below 100 
but at least 70, make the computer say the score and also say "OKAY THOUGH NOT 
PERFECT"; if the score is below 70, make the computer say "YOU FAILED". Here's how: 


IF SCORE=100 

SAY "PERFECT" 
IF SCORE<100 AND SCORE>=70 

SAY SCORE 

SAY "OKAY THOUGH NOT PERFECT" 
IF SCORE<70 

SAY "YOU FAILED" 


To shorten the program, use the words NOT and BUT: 


IF SCORE=100 

SAY-2"PEREECI 
IF NOT BUT SCORE>=70 

SAY SCORE 

SAY "OKAY THOUGH NOT PERFECT" 
IF NOT 

SAY "YOU FAILED" 


The phrase "IF NOT" is like BASIC's ELSE. The phrase "IF NOT BUT" is like BASIC's 
ELSE IF. 

PICK. You can shorten that example even further, by telling the computer to pick 
just the first IF that's true: 


PICK SCORE 
IF 100 
SAY "PERFECT" 
IF >=70 
SAY SCORE 
SAY "OKAY THOUGH NOT PERFECT" 
IF NOT 
SAY "YOU FAILED" 
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LOOP. In your program, you can say LOOP. It means: do the lines that are indented 
underneath, repeatedly. This program makes the computer say the words CAT and DOG 
repeatedly: 


LOOP 
SAY "CAT" 
SAY "DOG" 


This program makes the computer say 5, 8, 11, 14, and 17: 


LOOP I FROM 5 BY 3 TO 17 
SAY I 


That LOOP statement is like BASIC's "FOR I = 5 TO 17 STEP 3". If you omit the "BY 3", 
the computer will assume "BY 1". If you omit the "FROM 5", the computer will assume 
"FROM 1". If you omit the "TO 17", the computer will assume "to infinity". To make 

the computer count down instead of up, insert the word DOWN, like this: 


LOOP I FROM 17 DOWN BY 3 TO 5 


PREPARE. If you want the computer to do something unusual, you should tell the 
computer to PREPARE for it. For example, if you want to use subscripted variables 
such as X(100), you should tell the computer: 


PREPARE X(100) 


In that example, PREPARE is like BASIC's DIM. 
DATA. EASY's DATA statement resembles BASIC's. But instead of saying READ X, 
you say: 


LET X=NEXT 
HOW. In EASY, you can give any command you wish, such as: 
PRETEND YOU ARE HUMAN 
If you give that command, you must also give an explanation that begins with these words: 
HOW TO PRETEND YOU ARE HUMAN 


Interrelated features. In the middle of a loop, you can abort the loop. To skip out 
of the loop (and progress to the rest of the program), say SKIP LOOP. To hop back 
to the beginning of the loop (to do the next iteration of the loop), say REPEAT LOOP. 
Similarly, you can say SKIP IF (which makes the computer skip out of an IF) and 
REPEAT IF (which makes the computer repeat the IF statement, and thereby imitate 
PASCAL's WHILE). 

Apostrophe. The computer ignores everything that's to the right of an apostrophe 
(unless the apostrophe is between quotation marks or in a DATA statement). So to put 
a comment into your program, begin the comment with an apostrophe. (EASY uses the 
apostrophe in roughly the same way as extended Microsoft BASIC.) 

Comma. If two statements begin with the same keyword, you can combine them into 
a single statement, by using a comma. For example, instead of saying— 


LET X=4 
LET Y=7 


you can say: 
Pel ex=4 0120 
And instead of saying— 


PRETEND YOU ARE HUMAN 
PRETEND GOD IS DEAD 


you can say: 
PRETEND YOU ARE HUMAN, GOD IS DEAD 
More info. For details and extended features, phone me at 617-266-8128. 
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language survey 


EIGHT CATEGORIES 

Volumes 1 and 2 explained how to program the computer by using BASIC. Volume 7 
explained how to program by using FORTRAN, PASCAL, and COBOL. Volume 5 praised 
VISICALC (for financial planning) and DBASE 2 (for information retrieval). Those 
methods of communicating with the computer— BASIC, FORTRAN, PASCAL, COBOL, 
VISICALC, and DBASE 2— are called high-level languages. 

In addition to those high-level languages, researchers have invented thousands 
of others. Most high-level languages fall into eight categories: 


Category The most popular examples 
ancient languages for engineering FORTRAN & APT 
languages for statistics SPSS & STATPACK 
languages for simulation GPSS & DYNAMO 
languages for business COBOL & RPG 

languages for structured programming PASCAL & PL/I 

languages for data bases DBASE 2 & SYSTEM 1022 
exotic languages LISP & FORTH 


interactive languages for beginners BASIC & VISICALC 


FAMILY TREE 
This "family tree" shows how the popular high-level languages relate to each other: 


Ancient languages 
for engineering 


FORTRAN — APT 


Languages for statistics 
*SPSS — DATATEXT — IMPRESS — STATPACK 


DBASE 2 


Interactive languages for beginners 


PILOT 
OCAL 


A MUMPS 


BASIC — JOSS — APL — VISICALC 


Page 9: Language survey 


Arrows point from the parents to the children; for example; FORTRAN is the parent 
of SPSS, SIMSCRIPT, ALGOL, and LISP. In other words, the researchers who invented 
SPSS, SIMSCRIPT, ALGOL, and LISP all knew FORTRAN, and copied more features 
from FORTRAN than from any other major language. 

A horizontal dash connects languages that are "married". For example, FORTRAN is 
married to APT. That means FORTRAN is similar to APT, though neither language 
is the parent of the other. 

After a language is born, it "grows up", by incorporating features from other 
languages. For example, BASIC is the child of ALGOL and eventually grew up by 
incorporating features from many other languages, especially PL/I. 

A language's life can be full of turmoil. For example, PL/I (which came from 
ALGOL) was originally called "FORTRAN 6", then "NPL", and then finally "PL/I"; 
and today, several conflicting versions of PL/I abound, using names such as "PL/C", 
"PL/M", and "SP/k". Another example of turmoil is SNOBOL, which was strongly 
influenced by COMIT but went through several conflicting versions: "SCL", then 
"SCL7", then "SEXI", and finally "SNOBOL". 

Let's look at all those languages more closely.... 


ANCIENT LANGUAGES FOR ENGINEERING 
Of all the languages used today, FORTRAN and APT are the oldest. And of all the 
languages ever invented, FORTRAN has the most descendants: FORTRAN gave birth 
to SPSS, SIMSCRIPT, ALGOL, and LISP, and those languages in turn gave birth to 
many others. APT is used in factories: it lets you make the computer tell other machines 
how to cut metal. Today, FORTRAN and APT seem quaint, but many programmers still 
use them. FORTRAN is still the most popular language for making large computers do 
scientific calculations. That's because large computers can handle FORTRAN more 
quickly than any other language. 


LANGUAGES FOR STATISTICS 
The most popular language for statistics is SPSS. It contains commands for handling 
every aspect of statistics: averages, percentiles, crosstabs, chi-square, regression 
analysis, and all the other gobbledygook that statisticians love. Many colleges require 
all psychology and sociology majors to write programs in SPSS. Unfortunately, SPSS 
is ugly, and the computer handles it slowly. If you want a simpler and pleasanter 
statistical language, choose DATATEXT or IMPRESS or STATPACK instead. But most 
psychologists and sociologists still use SPSS, because it contains the greatest variety 
of commands. Today, you can buy SPSS for practically every maxicomputer and for 
most minicomputers also. Only a few brands of computers can handle DATATEXT, 
IMPRESS, or STATPACK. 


LANGUAGES FOR SIMULATION 
To analyze society, make the computer imitate thousands of people interacting with 
each other. To make the computer imitate those thousands of people, use SIMSCRIPT, 
GPSS, or DYNAMO. Use GPSS to make the computer imitate people who wait in lines 
(at supermarkets and at barbershops and at loading docks). Use DYNAMO to make the 
computer predict the future (of your industry or your overpopulated city or your 
polluted world). Use SIMSCRIPT for weirder interactions that are too complicated for 
GPSS or DYNAMO. 


LANGUAGES FOR BUSINESS 
The most popular business language is COBOL. To write a COBOL program, use an 
outline and just "fill in the blanks". An even easier language is RPG, where you just 
"check off" what you want, by putting check marks on a four-page form. COBOL is 
the most popular language for IBM's maxicomputers; RPG is the most popular language 
for IBM's minicomputers. DIBOL and DATABUS are crummy stripped-down versions of 
COBOL: DIBOL runs only on PDP-8 and PDP-11 minicomputers; DATABUS runs only 
on minicomputers manufactured by Datapoint. 
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LANGUAGES FOR STRUCTURED PROGRAMMING 
Around 1960, an international committee of mathematicians invented ALGOL. It's a 
very beautiful language— much more beautiful than its predecessor, FORTRAN. 
Many researchers tried to improve ALGOL further: those later improvements were 
called PASCAL, ADA, SIMULA, PL/I, and C. All those languages are "elegant". 
They're all praised by theoreticians in universities. They arose because of politics: 
PASCAL was invented by a Swiss member of the ALGOL committee because he hated 
the rest of the committee; ADA was invented by a French company to help Americans 
develop more powerful missiles to bomb Russia; SIMULA was a Norwegian attempt to 
combine ALGOL with SIMSCRIPT; PL/I (a combination of ALGOL, COBOL, and FORTRAN) 
was invented by IBM, in an unsuccessful attempt to wipe ALGOL and COBOL and 
FORTRAN off the face of the earth; C (a stripped-down version of PL/I) was invented 
by Bell Telephone, because the phone company couldn't afford to buy IBM's PL/I 
computers. None of those languages is widely used in the commercial world yet— 
although PASCAL is starting to become popular on CDC and PDP and Apple computers, 
and C is starting to become popular on PDP-11 computers and some microcomputers. 


LANGUAGES FOR DATA BASES 
To make the computer manipulate lots of data on a disk, buy a data-base program 
(such as PFS or DB Master) or write your own program. To write your own program 
easily, use a data-base language, such as SYSTEM 1022 or DBASE 2. The SYSTEM 1022 
works only on PDP-10 and PDP-20 computers; DBASE 2 works only on microcomputers 
that use the CP/M operating system. Although many other data-base languages exist 
also, SYSTEM 1022 and DBASE 2 are the most pleasant. 


EXOTIC LANGUAGES 
If you're weird, you'll love the exotic languages: LISP, COMIT, SNOBOL, and FORTH. 
Those languages all have a strange inhuman beauty that appeals to us masochists. Use 
LISP to make the computer become a robot; use COMIT to make the computer understand 
English; use SNOBOL to make the computer do abstract algebra; and use FORTH to 
invent new languages for microcomputers. 


INTERACTIVE LANGUAGES FOR BEGINNERS 
BASIC, JOSS, APL, and VISICALC are all easy languages, for beginners. JOSS is the 
easiest; BASIC is the most popular; APL is the most sophisticated; VISICALC is the best 
for accountants. Those languages led to others: PILOT was an attempt to invent a 
language even easier than BASIC and JOSS; LOGO is a "kiddie" version of LISP that's 
been JOSSified; and the twinkle-toes trio (AID, FOCAL, and MUMPS) are just slight 
variations of JOSS. 


WHICH LANGUAGE IS THE BEST? 

All those languages seem to be leading to the "ultimate language"— which I've been 
developing. My language is called EASY. It's even easier to learn than PILOT, yet 
includes the best features of all the other languages also. It's perfect. 

People often ask how I memorize so many languages. The answer is simple: to 
memorize a language, I just notice how it's worse than EASY and memorize its mistakes. 

EASY isn't quite finished yet. If you help finish it, you'll win both fame and fortune: 
I'm giving out prizes. I'm putting the language in the public domain: I don't want to 
profit from EASY, because EASY isn't for me; it's for you. 
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THE TOP 22 LANGUAGES 
Of the 35 languages in the family tree, 22 are particularly important. Here they are, 
in chronological order: 


Name of What the name Original Where first version Name of 

language stands for application was invented newest version 

APT Automatically cutting MIT, 1952-1957 APT 77 
Programmed Tools metal 

FORTRAN FORmula TRANslating sciences IBM, 1954-1957 FORTRAN 77 

ALGOL ALGOrithmic Language sciences international, ALGOL W, 

1957-1958 BALGOL, 
ALGOL 68 

DYNAMO DYNAmic MODels simulation MIT, 1959 DYNAMO 3 

RPG Report Program business IBM, 1959 RPG 3 
Generator 

LISP LISt Processing artificial MIT, 1959-1960 MACLISP, 

intelligence LISP-machine LISP 
COBOL COmmon Business- business Defense Dept., COBOL 74 


Oriented Language 1959-1960 
GPSS General-Purpose Simulation IBM, 1961 GPSS 5 


Systems Simulator 


SNOBOL StriNg-Oriented string Bell Telephone SNOBOL 4B 
symBOlic Language rocessing’ Labs, 1962-1963 

BASIC Beginner's All- sciences Dartmouth College, SBASIC, 
purpose Symbolic 1963-1964 BASIC-PLUS-2, 
Instruction Code Microsoft BASIC 

APL A Programming sciences Harvard & IBM, APLSV 
Language 1956-1966 

PL/I Programming Language general IBM, 1963-1966 PL/I Optimizer, 
One PL/C, ANSI PL/I 

SPSS Statistical Package for statistics Stanford Univ., SPSS 2nd edition 
the Social Sciences 1965-1967 

LOGO LOGO general Bolt Beranek Apple LOGO 


Newman, 1966-1967 
FORTH FOuRTH-generation business & Stanford Univ. & POLYFORTH, 


language astronomy Mohasco, 1963-1968 FIG-FORTH, 
— MMS FORTH 
PILOT Programmed Inquiry, tutoring U. of California at Atari PILOT 
Learning, Or Teaching kids San Fran., 1968 
PASCAL Blaise PASCAL general Switzerland, UCSD PASCAL 
1968-1970 
C C systems Bell Telephone PDP-11 C 


progr'ing Labs, 1970-1977 
VISICALC VISIble CALCulation financial Software Arts, 1978 VISICALC 3 


forecastin 

ADA ADA Lovelace military France, 1977-1980 ADA final vers'n 
equipment 

DBASE 2 Data BASE 2 information Ashton-Tate, DBASE 2 
retrieval 1978-1980 

EASY EASY general Secret Guide, EASY 

1972-1982 
The main inventors were: 

Inventor Languages 

IBM FORTRAN, RPG, GPSS, APL, PL/I 

MIT APT, DYNAMO, LISP 


Bell Telephone Labs SNOBOL, C 
Stanford University SPSS, FORTH 


All the languages were invented in the United States, except for ALGOL, PASCAL, 
and ADA. 
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The "dead era" lasted from 1969 to 1979: during that 11-year stretch, only three 
languages were finished: PASCAL, C, and VISICALC. 

The first thirteen languages (up through SPSS) are the "classics". They've 
withstood the test of time. Everybody agrees that those languages made significant 
contributions to our culture. 

The remaining nine languages (beginning with LOGO) are new and controversial; 
the jury isn't in yet. What's your verdict? Do you think these new languages are 
wonderful or terrible? 

Each of those 22 languages— even the oldest— is still used today. And each language 
teaches you a different philosophy of programming, a different way to look at life. To 
get the whole truth, you must look at both the o/d truths and the new. If you learn the 
old without the new— or the new without the old— you'll be only half-wise. Study the 
languages— all of them! 

To help you along, the next page shows a multilingual dictionary for the "mainstream" 
languages. And here's how to add 2 and 2: 


BASIC FORTRAN PASCAL COBOL 
10 PRINT 2+2 N=et2 PROGRAM HARRY; IDENTIFICATION DIVISION. 
PRINT *, N BEGIN; DATA DIVISION. 
END WRITELN(2+2); §WORKING-STORAGE SECTION. 
END. 01 N PIC 9. 


PROCEDURE DIVISION. 
MAIN-ROUTINE. 
ADD 2 2 GIVING N. 


DISPLAY N. 

STOP RUN. 
ALGOL ADA PL/I 
BEGIN PRINT(2+2); PROCEDURE HARRY IS HARRY: PROCEDURE OPTIONS (MAIN); 
END BEGIN PUT LIST(2+2); 

PUT (2+2); END; 
END; 
C SNOBOL PILOT APL LOGO 
MAIN () OUTPUT =2+2 C:#K=2 2+2 PRINT 2t2 
{ END C:#N=#K+2 
PRINTF C"ZD\N'" ,2+2); T:4N 

} 
LISP FORTH VISICALC EASY 
CPRUSE2S2) ice ce tweet cre SAY 2t2 


The next chapter looks at each of the 22 languages in chronological order, 
beginning with the classics. 
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flassical languages 


WHY USE APT? 


If you use APT, the computer will help you cut metal. Type an APT program that says 
how you want the metal cut. When you run the program, the computer will create a 
special instruction tape. Feed the instruction tape into a metal-cutting machine, 
and the machine will cut metal as you said. 


EXAMPLE 


Let's write an APT program that makes the machine cut out the shaded area: 


We'll make the machine move the cutter where the circles are. 


Here's the program: 


CUTTER/1 Use a cutter whose diameter is 1". 
TOLER/.005 The tolerance of the cut is .005". 

FEDRAT/ 80 Use a feedrate of 80" per munute. 

HEAD/1 Use head 1. 

MODE/1 Operate the took in mode 1. 

SPINDL/2400 Turn the spindle on, at 2400 rpm. 
COOLNT/FLOOD Turn the cookant on, at flood setting. 
PT1=POINT/4,5 PTI = the point whose coordinates are (4,5). 


FROM/(SETPT=POINT/1,1) SETPT = the point (1,1). Start the took from SETPT. 
INDIRP/(TIP=POINT/1,3) TIP = (1,3). Aim the took in the direction of the point TIP. 
BASE=LINE/TIP, AT ANGL, 0 BASE = the Line that goes through TIP and slants 0 degrees. 
GOTO/BASE Make the took go to BASE. 
TL RGT, GO RGT/BASE With the tool on the right, go right along BASE. 
GO FWD/(ELLIPS/CENTER, PT1, 3,2,0) Go forward akong the ellipse whose center 4s PTI, 
ACML-MAJON AXLA AS 3", AQML-MLiNON AXLs Ab 2", 
and major axts slants 0 degrees. 
GO LFT/(LINE/2,4,1,3,), PAST, BASE Go Left along the Line that joins (2,4) and (1,3), 
untih you get past BASE. 


GOTO/SETPT Make the took go to SETPT. 
COOLNT/OFF Turn the coolant off. 
SPINDL/OFF Turn the spindle off. 

END End use of the machine. 


FINI The program 46 finished. 
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HOW FORTRAN DEVELOPED 


In 1954 an IBM committee said it was planning a language called FORTRAN. The plans 
resembled today's FORTRAN but did not allow long variable names, subroutines, long 
function definitions, double precision, complex numbers, or apostrophes. 


According to the plans, a variable's name had to be very short—only two letters. 
A function's definition had to fit on a single line. Instead of using apostrophes 
and writing 'PLEASE KISS ME', the programmer had to write 14HPLEASE KISS ME; the 
14H meant a 14-character string. 


The plans did not require a DO loop to be immediately under the DO statement. The 
loop could be elsewhere, and the DO statement would say where. 


There was no END statement. The programmer could warn the computer how frequently 
a variable would appear in the program, by saying FREQUENCY. Besides comparing 
numbers, the IF statement could say IF ACCUMULATOR OVERFLOW or IF QUOTIENT OVERFLOW. 


The first working version of FORTRAN (1957) allowed longer variable names—up to 

6 characters—and put the DO loop under the DO statement. FORTRAN II (1958) allowed 
subroutines and long function definitions, and put an END statement at the end of the 
program. IBM experimented with a FORTRAN III, but never released it to the public. 
FORTRAN IV (1962) allowed double precision and complex numbers, and abolished the 
statements about FREQUENCY and OVERFLOW. Apostrophes weren't allowed until later. 


The original plans said you'd be able to add an integer to a real. That didn't 
work in FORTRAN I, FORTRAN II, and FORTRAN IV, but it works today. 


The original plans said an IF statement would compare any two numbers. FORTRAN I 
and FORTRAN II required one of the numbers to be zero, but FORTRAN IV removed the 
restriction. 


Before FORTRAN was invented, programming was so difficult that only a few specialists 
could do it. IBM waged a campaign to convince everyone that FORTRAN was easier. 

IBM succeeded: people who knew little about computers wrote their own FORTRAN 
programs. 


Other manufacturers imitated IBM's FORTRAN, but made some changes. In 1966, the 
American National Standards Institute (ANSI) created a single version of FORTRAN IV 
for all manufacturers. Now ANSI has completed an improvement, called ANSI Standard 
FORTRAN 77. ("ANSI" is pronounced "an see". ) 


IS FORTRAN GOOD? 


FORTRAN is the favorite language among scientists, because it allows four kinds of 
numbers (integers, reals, double precision, and complex), allows many formats for 
input and output, lets you decide which variables in the main routine relate to 
which variables in the subroutine, and lets the computer run loops more quickly than 
other languages. 


But FORTRAN is not perfect. IBM's first FORTRAN manual (1956) said, "FORTRAN is 
intended to be capable of expressing any problem of numerical computation. However, 
for problems that have a logical rather than a numerical meaning, FORTRAN is less 
satisfactory." In other words, FORTRAN handles numbers well, but handles string 
variables awkwardly. FORTRAN 77 is an improvement but still doesn't bring FORTRAN's 
string capabilities up to the level of BASIC, PL/I, and SNOBOL. 
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Jean Sammet, the woman who's the world expert on the history of computer languages, 
and whose books and papers analyze more than 200 languages, says, "Because FORTRAN 
was designed so early, better ways have been found to do almost everything that is 
currently in FORTRAN."' In other words, FORTRAN is outdated. John Kemeny, who 
invented BASIC, says, ''FORTRAN is as outdated as Latin.'' New languages, such as 
BASIC, ALGOL, and APL, are easier to learn than FORTRAN. PL/I is more flexible. 
But scientists still use FORTRAN, because those newer languages have disadvantages 
that offset their advantages. 


ALGOL 


SIMPLE PROGRAMS 


From 1958 to 1962, the top computer organizations in America and Europe tried to 
invent a perfect language. They called it "ALGOL". It's simple and beautiful. 


Here's how to write ALGOL programs on a PDP-10 computer. (If you're using an IBM 
computer, make the changes listed at the end of the chapter.) 


Here's an ALGOL program: 
BEGIN PRINT(7+5-1); 

PRINT(52-(10+10)); 

PRINT(-8+1); 
END 
An ALGOL program must begin with the word BEGIN, and end with the word END. Each 
statement must end with a semicolon. (Exception: in the program above, you can 
omit the semicolon at the end of line 3, since END comes right after it.) The 
program makes the computer print: 

11 G2 =i 


That's the traditional way to type an ALGOL program. You can put several statements 
on the same line and not indent— 

BEGIN PRINT(7+5-1); PRINT(52-(10+10)); PRINT(-8+1); END 

but the traditional style is prettier. 


As in FORTRAN, you can use integers and reals. For reals, put digits after the 
decimal point: 

INTEGER REAL WRONG 

5 520 Die 


For powers of ten, use the symbol &: 
FORTRAN ALGOL 


4.3E6 4.3&6 

You can use these operations: 

OPERATION SYMBOL TYPE OF ANSWER 

addition x+y real, unless x and y are both integers 
subtraction X-y real, unless x and y are both integers 
multiplication x*y real, unless x and y are both integers 
division x/y always real 

exponents xty real, unless x and y are both integers and y is non-negative 
Here are examples: 

ot370 Sl Saoc0 

543701808 

3/4 eisaeer FORTRAN would give 0 instead 


16/2 seo. 0 FORTRAN would give & instead 
2+(-3) is .125 FORTRAN would give 0 instead 


Page 17: ALGOL 


You can use these functions: 


FUNCTION SYMBOL 
Square root SQRT(x) 
sine SIN(x) 
cosine COS(x) 


arctangent ARCTAN(x) 

logarithm LN(x) 

e EXP(x) 

The x can be either an integer or a real. But even if x is an integer, the answer 
is real. For example, SQRT(9) is 3.0, and SQRT(2) is 1.4142135. In FORTRAN, you'd 
have to say SQRT(9.0) and SORT(2.0) instead. 


For strings, say WRITE instead of PRINT: 
BEGIN WRITE("'HOT"); 
WRITE("DOG") ; 
NEWLINE; 
WRITE('"'MAN"); 
END 
The computer will write HOT, then DOG, then on a new line write MAN: 
HOTDOG 
MAN 


The computer will ignore any statement that begins with the word COMMENT. 


VARIABLES 


The name of a variable can be short (like X and N and COST2) or long—up to 64 letters 
and digits. It must begin with a letter. 


Tell the computer which variables are integers and which are reals: 
BEGIN REAL X; INTEGER Y,Z;3 


X:=SQRT(2); 
Y=5455 
Z:=442; 
PRINT( X+Y+Z) ; 


END 

The first line says X is real, and Y and Z are integers. X is the real number 
1.4142136, Y is the integer 10, and Z is the integer 16. The computer will print 
the sum, 27.414213, in scientific notation. 


If you don't say whether X, Y, and Z are integers or reals, the computer will gripe. 
Saying whether a variable is an integer or a real is called a declaration. The 
declarations must come immediately after the word BEGIN. 


If you say J is real and say J:=5, the J will be 5.0. If you say K is an integer 
and say K:=2.9, the computer will round 2.9 to the nearest integer, so K will be 3. 


FORTRAN woukd ignore the .9 and make K be 2. 


BEGIN REAL X; 
WRITE("TYPE A NUMBER"); 
NEWLINE; 
READ(X) ; 
WRITE("'THE SQUARE OF YOUR NUMBER IS"); PRINT(X+2); 
END 
The computer will write TYPE A NUMBER. It will read the number you type and will 
print its square. 


In a program that outputs and then READs, say NEWLINE in between. 
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BEGIN WRITE("GOOD "); 
GO TO MOMMY; 
WRITE("'BAD ''); 
MOMMY: WRITE("APPLE "'); 
WRITEG’ PIE! ):; 
END 
The computer will write: 
GOOD APPLE PIE 
In that program, MOMMY is the fourth statement's Zabel. 


BEGIN INTEGER I; 
FOR L?=-2, 7, 10° DO PRINT(112); 
WRITE ("HELLO") ; 
END 
The computer will print 4, 49, and 100. Then it will write HELLO. 


STATEMENT MEANING 

OR I:=10 STEP 1 UNTIL 15 DO PRINT(1#2); Print the squares vofel0 lie 
3, J4candmpoe 

Print the squares ‘of 2; ll-7 75 oa 
6.4,.6.] 585257) Panos 

IF X<4 THEN WRITE("CAT") ELSE PRINT(8+9) ; Lf X<4, write! CATs) (lf not prineeien 
:=1F X<4 THEN 8 ELSE 9; Let’ Y=8) “1E°X<4e V1f* not, lets 


FOR I:=2, 11, 7 STEP -.3 UNTIL 5, DO PRINT(1I142); 


:=N+(IF X<4 THEN 8 ELSE 9); Let Y=N+8, if X<4. If not, let Y=N+9. 
F X<4 THEN GO TO MOMMY; If X<4, go to MOMMY. 
O TO IF X<4 THEN MOMMY ELSE DADDY; Go to MOMMY, if X<4. If not, go 


to DADDY. 


This statement is so long it takes two lines: 
IF P<.03 THEN WRITE("HICCUP") 
ELSE IF X<4 THEN WRITE("'CAT') ELSE PRINT(8+9.) ; 
Since those lines contain only one semicolon, they form only one statement, not two. 
It means, "If P is less than .03, write HICCUP; if not less than .03, do the following: 
if X*is less’than 4, write CAT: if! not lessmtpang4; print sem 


You can use these conditions: 


CONDITION MEANING 

IF X=4 if X equals 4 

IF X<=4 if X is less than or equal to 4 

IF X>=4 if X is greater than or equal to 4 
IF X#4 if X is not equal to 4 j 


IF X>4 AND X<10 OR X>20 AND X<30 if X is greater than 4 and less than 10, or 
greater than 20 and less than 30 
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This program's simple: 

BEGIN WRITE("BILL "); 
WRITE("KICKS "'); 
WRITE(''MARY''); 

END 

The computer will print: 

BILL KICKS MARY 


This program does the same thing: 
BEGIN PROCEDURE K; WRITE("KICKS "); 
WRITE("BILL "'); 
K; 
WRITE (''MARY") ; 
END 
The top line defines K to be WRITE("KICKS '). The rest of the program says to write 
BILL, then do K, then write MARY. 


BEGIN PROCEDURE T; WRITE("'TICKLISH ''): 
WOUTEG LeFEEL I) : 


END 
The computer will write: 
I FEEL TICKLISH TICKLISH TICKLISH 


BEGIN INTEGER I; 
PROCEDURE DOUBLE; 1:=2*1; 
eis 
DOUBLE ; 
DOUBLE ; 
PRINT(I); 
END 
The second line defines DOUBLE to be the procedure of doubling I. The computer will 
let I be 7, then do a DOUBLE, then another DOUBLE, and finally print 28. 


Procedures should be defined at the beginning, immediately after BEGIN and declarations 
such as INTEGER I. 


BEGIN PROCEDURE P; GO TO MOM; 
WRITE(''MARY ''); 
P; 
WRITE("HATES "); 
MOM: WRITE("LIES"); 
END 
The top line defines P to be GO TO MOM. The computer will write MARY, then do P, 
which makes it go to MOM and write LIES: 
MARY LIES 
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Here's a simple statement: 
WRITE("'MEAT") ; 
This compound statement does the same thing: 
BEGIN 
WRITE("ME"') ; 
WRITE("AT"); 
END; 
Like a program, a compound statement begins with BEGIN and ends with END. Like all 
statements, a compound statement ends with a semicolon. 


LINE EQUIVALENT LINES 
FOR I:=1 STEP 1 UNTIL 10 DO WRITE("MEAT"); FOR I:=1 STEP 1 UNTIL 10 DO 
BEGIN 


WRITE("ME"); 
WRITE("AT"); 


END; 
IF X<4 THEN 
BEGIN 


F X<4 THEN WRITE(''MEAT"); 


WRITE(''ME"'); 
WRITE("AT"); 


END; 
IF X<4 THEN 


F X<4 THEN WRITE( MEAT") ELSE PRINT(5+2); 


BEGIN 
WRITE("'ME") ; 
WRITE("AT"); 
END no semicolon here, since the I 


ELSE PRINT(5+2); 4tatement 1sn't done 
PROCEDURE P; 


BEGIN 


ROCEDURE P; WRITE(''MEAT"); 


WRITE ("ME") ; 
WRITE("AT") ; 


END; 


This program computes V1+V2+/3+V44+V5+/6+/7+/8+V9+V10, and also + + 5 a3 
Lear ley G1 1 
ne Cea: 
BEGIN INTEGER I; REAL SUMSQUARES, SUMRECIPROCALS; 
SUMSQUARES:=0.0; SUMRECIPROCALS:=0.0; 
FOR I:=1 STEP 1 UNTIL 10 DO FORTRAN would nequire FLOAT(T) 
BEGIN instead Ocal 
SUMSQUARES : =SUMSQUARES+SQRT( a 
SUMRECIPROCALS :=SUMRECIPROCALS+1/1; ‘FORTRAN would require 1.0 
END; Andtead of 1 
PRINT(SUMSQUARES); PRINT( SUMRECIPROCALS) ; 
END 


This program does the same: 
BEGIN INTEGER I; REAL SUMSQUARES, SUMRECIPROCALS ; 
PROCEDURE BIGGERSUMS; 


BEGIN 
SUMSQUARES : =SUMSQUARES+SQRT(I); definition of BIGGERSUMS 
SUMRECIPROCALS : =SUMRECIPROCALS+1/T1; 

END; 

SUMSQUARES:=0.0; SUMRECIPROCALS:=0.0; 

FOR I:=1 STEP 1 UNTIL 10 DO BIGGERSUMS; matin Aoutine 


PRINT(SUMSQUARES) ; PRINT(SUMRECIPROCALS) ; 
END 
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This program is tricky: 
BEGIN INTEGER I; 


LE=3; 

BEGIN INTEGER 1; 
I:=7; 
PRINT(I); 

END; 


PRINT(It2); 
END 


In that program, the computer sets I equal to 5. Then the computer does the 
compound statement: 
BEGIN INTEGER I; 
I:=7; 
PRINT(I); 
END; 
Since the compound statement begins by saying INTEGER I, the computer creates a 
temporary value of I, just for the compound statement. That value is 7, and the 


computer prints it. When the computer finishes the compound statement, it forgets 
the temporary value of I, and returns to the original value, 5. The program's 
last statement makes the computer print 25. 


The temporary value of I, which is 7, is called the local value. The general value 
of I, which is 5, is the global value. A compound statement that creates a 
temporary value is called a block. 


Suppose you're writing a long program that uses a real variable S in only one 

compound statement. Say REAL S at the beginning of the compound statement, instead 

of at the beginning of the program. Here's why: 

1. The program will be easier for a human to read, since the note REAL S will be 
closer to where S is used. 

2. The program will hog less computer memory, since S will use memory only when 
the compound statement is being executed. 

3. The program will be easier to expand, since your temporary S won't conflict with 
any other S you create later. 


SUBSCRIPTS 


BEGIN REAL ARRAY A[4:7]; 


PRINT (A[4]+A[5]+A[6]+A[7]) 3 
END 
The top line says A[4], A[5], A[6], and A[7] are real numbers. The computer will 
print the sum, 3.6. 
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Instead of saying A[4:7], you can say A[L:H], and let L and H be input: 
BEGIN INTEGER L,H; 

WRITE ("WHAT IS L?"); 

NEWLINE; 

READ (L) 

WRITE ("WHAT IS H?"); 

NEWLINE; 

READ (H) ; 

BEGIN REAL ARRAY A[L:H]; INTEGER I; 

WRITE ("WHAT ARE THE VALUES OF A?"); 


NEWLINE 5 
FOR I:=L STEP 1 UNTIL H DO READ(A[TI])3 
etc e 


END ; 
END 


ALGOL's ability to let you input a dimension is called dynamic storage allocation. 
On most computers, BASIC and FORTRAN don't allow you to input a dimension; the 
dimension must be a constant; the storage allocation is static. 


This statement says A will have two dimensions: 

REAL ARRAY A[4:7, -8:10]; 
The first subscript will range from 4 to 7. The second will range from -8 to 10. 
The first value of A will be A[4,-8]; the last will be A[7,10]. 


Here's how to read a table: 
BEGIN INTEGER R,C3 
WRITE (""HOW MANY ROWS WILL THE TABLE HAVE?"); 
NEWLINE; 
READ (R) ; 
WRITE ("HOW MANY COLUMNS?") ; 
NEWLINE 5 
READ (C) ; 
BEGIN REAL ARRAY A[1:R, 1:C]3 INTEGER I,J; 
WRITE ("WHAT ARE THE ENTRIES OF THE TABLE?") ; 
FOR I:=1 STEP 1 UNTIL R DO 
FOR J:=1 STEP 1 UNTIL C DO READ(A[I,J]);3 
etc. 
END ; 
END 


Instead of saying REAL ARRAY, you can say ARRAY. The computer assumes the array 
is real, unless you specify otherwise. 


Instead of writing— 

INTEGER ARRAY A[1:50]; INTEGER ARRAY B[1:50]; INTEGER ARRAY CPLs50 jis 
you can write: 

INTEGER ARRAY A,B,C[1:50]; 
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HOW ALGOL DEVELOPED 


In 1955, the Gesellschaft fiir Angewandte Mathematik und Mechanik (German Association 
for Applied Mathematics and Mechanics) created a committee on programming, which 
later created a subcommittee that began inventing a computer language. The 
subcommittee decided the language should use English terms instead of German, since 
English was the international language for science. 


In 1957 the Germans invited Americans to join them. In 1958 other European countries 
joined also, and the international committee proposed a new language, called “IAL" 
(International Algebraic Language). Then the committee renamed the language 

"ALGOL 58", wrote a revision called "ALGOL 60", wrote another revision, called 
"ALGOL 60 (Revised)", and then disbanded. Today when programmers mention "ALGOL", 
they usually mean the committee's last report, ALGOL 60 (Revised). 


ALGOL is more convenient than FORTRAN: 

1. ALGOL's variables can have long names. FORTRAN allows only 6 characters. ALGOL 
allows 64 on PDP-10 computers, and even more on others. 

2. Writing 2 instead of 2.0 doesn't affect ALGOL's answer. In ALGOL, 1/2 gives 
the same answer as 1/2.0; 2t(-3) gives the same as 2.0t(-3); and SQRT(2) 
gives the same as SQRT(2.0). 

3. ALGOL's IF is flexible. It can contain ELSE, BEGIN, and END, and you can say 
Y:=N+(IF X<4 THEN 8 ELSE 9). 

4. ALGOL's FOR is flexible. ALGOL lets you say FOR X:=3.7, Y+6.2, SQRT(Z) STEP -.3 
UNTIL 5 DO. FORTRAN's DO is more restrictive; some versions of FORTRAN even 
insist that the DO statement must not contain reals, must not contain negatives, 
and must not contain arithmetic operations. 

5. ALGOL allows dynamic storage. FORTRAN allows DIMENSION X(20) but not X(N). 
ALGOL allows ARRAY X[1:N]. 


Europeans began using ALGOL more than FORTRAN. The American computer association 
(called the Association for Computing Machinery, ACM) said all programs in its 
magazine would be in ALGOL. 


But IBM didn't put ALGOL on its computers. Most American programmers used IBM 
computers and therefore couldn't use ALGOL. This created a ridiculous situation: 
programmers programmed in FORTRAN instead, but submitted ALGOL translations to the 
ACM's magazine, which published the ALGOL versions, which the magazine's readers 
had to translate back to FORTRAN in order to run them on IBM computers. 


IBM computers eventually swept over Europe, so that even Europeans had to use FORTRAN 
instead of ALGOL. 


Finally, the ACM gave in, and said it would publish programs in FORTRAN. But since 
ALGOL was prettier, everybody continued to submit ALGOL versions anyway. 


IBM gave in too, and put ALGOL on its computers. But IBM's version of ALGOL is so 
limited and awkward that nobody takes it seriously, and even IBM itself has stopped 
supporting it. In 1972 Stanford University created ALGOL W, a better version that 
runs on IBM computers. But ALGOL W came too late: universities and businessmen 
had already committed themselves to FORTRAN. 


From that quickie history, you might think the downfall of ALGOL was IBM's fault. 
But there are other sides to the story. 


IBM had invested 25 man-years to develop the first version of FORTRAN. By the time 
the ALGOL committee finished the report on ALGOL 60 Revised, IBM had also developed 
FORTRAN II and FORTRAN III and made plans for FORTRAN IV. IBM was proud of its 
FORTRAN idea and wanted to elaborate on it. 
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Also, IBM realized that computers run FORTRAN programs more quickly than ALGOL. 


When asked why it didn't support ALGOL, IBM replied that the committee's description 
of ALGOL was incomplete. IBM was right: the ALGOL 60 Revised Report has three 
loopholes: 

1. The report doesn't say what words to use for input and output, because the 
committee couldn't agree. So computers differ. If you want to transfer an 
ALGOL program from one computer to another, you must change all the input 
and output instructions. 

2. The report uses symbols such as + and A, which aren't on most terminals. The 
report underlines keywords; most terminals can't underline. Terminals must 
substitute other symbols for + and A and underlining. Here again, manufacturers 
differ. To transfer an ALGOL program to another manufacturer, you must change 
symbols. 

3. Some features of ALGOL are hard to teach to a computer. Even today, no computer 
understands all of ALGOL. When a manufacturer says its computer "understands 
ALGOL", you must ask, "Whtch features of ALGOL?" In the chapter on ALGOL, I 
explained just the features most computers have. But even if your program uses 
just those features, it will run more slowly than if it were written in FORTRAN. 


Two other ALGOL committees were formed later. One committee developed suggestions 
on how to do input and output, but the suggestions have been largely ignored. The 
other committee tried to invent a better ALGOL; the committee wrote its preliminary 
report in 1968 and revised it in 1975. Called "ALGOL 68 (Revised)", the report is 
weird: it even requires you to spell words backwards (IF becomes FI, and DO becomes 
OD). The committee's decision was far from unanimous, and several members refuse to 
endorse the report. ALGOL 68 will probably be used even less than ALGOL 60 Revised. 


ALGOL led to BASIC, PL/I, and PASCAL. Those new languages incorporate ALGOL's good 
features and avoid its deficiencies. 


ALGOL ON IBM COMPUTERS 


IBM computers use different symbols: 


PDP-10 COMPUTERS IBM COMPUTERS IBM COMPUTERS 

USING ALGOL USING ALGOL W USING IBM ALGOL 

742 7**2 7% 

A[4] A(4) A(/4/) 

AND AND & 

OR OR | 

X#4 X7=4 X7=4 

4.386 4.3'6 4.3'6 

PRINT(X); WRITEON(X) ; OUTINTEGER(1,X); 0% OUTREAL(1,X); 
WRITE("'LOVE") ; WRITEON("LOVE"); OUTSTRING(1,'('LOVE')'); 

NEWLINE; WRITE(); SYSACE Gia Gale: 

READ(X); READON(X) ; ININTEGER(0,X); 0% INREAL(0,X); 


On IBM computers using IBM ALGOL, put apostrophes around all keywords: 
"BEGINY sfEND:, SINTEGER" "REAL: @¢CGOTOL Be rOR. |) wOlED a SUNT IL ar ODO: 
LEE? SUTHENS | sLELSE® @LPROGEDUREM +ARRAYS 


On IBM computers using ALGOL W, you can use these abbreviations: 
LINE ABBREVIATION 
WRITEON(X); WRITEON(Y); WRITEON(Z); WRITEON(X,Y,Z); 
WRITEON(X); WRITEON(Y); WRITEON(Z); WRITE(); WRITE(X,Y,Z); 
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DYNAMO. 
SYMBOLS 


DYNAMO uses these symbols: 
SYMBOL MEANING 


.J a moment ago 

.K now 

JK during the past moment 
.KL during the next moment 
DT how long ''a -moment" is 


For example, suppose you want to explain to the computer how population depends on 
birth rate and death rate. If you let P be the population, BR be the birth rate, 
and DR be the death rate, here's what to say in DYNAMO: 

P.K=P.J+DT*(BR.JK-DR. JK) 
The equation says: Population now = Population before + how long ''a moment" is * 
(Birth Rate during the past moment - Death Rate during the past moment). 


WORLD DYNAMICS 


The most famous DYNAMO program is the "World Dynamics Model", which Jay Forrester 

programmed at MIT in 1970. His program has 117 equations that describe 112 variables 

about our world. Here's how the program begins: 

* WORLD DYNAMICS 
P.K=P.J+DT*(BR.JK-DR. JK) 
P=P] 


Piet O59 


The first line gives the program's title. The next line defines the Level of Population, 
in terms of Birth Rate and Death Rate. The second equation defines the iNitial 
Population to be PI (Population Initial); the next equation defines the Constant PI 

to be 1.65E9, because the world's population was 1.65 billion in 1900. The next 
equation says the Rate BR.KL (the Birth Rate during the next moment) is determined 

by the Population now and several other factors, such as the BRFM (Birth-Rate-from-Food 
Multiplier), the BRMM (Birth-Rate-from-Material Multiplier), the BRCM (Birth-Rate-from- 
Crowding Multiplier), and the BRPM (Birth-Rate-from-Pollution Multiplier). Each of 
those factors is defined in later equations. When you run the program, the computer 
automatically solves all the equations simultaneously and draws graphs that show how 
the population, birth rate, etc. will change during this century and the next. Here 
are some of the results: 
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NATURAL RESOURCES 


food per person 


IN 7a 


a 


, 


bias ei 


QUALITY OF LIFE 


POPULATION 


material standard of living 


capital investment 
POLLUTION 
1900 1920 1940 1960 1980 2000 2020 2040 2060 2080 2100 
YEAR 
The graph shows the quality of life will decrease because of overpopulation, 
pollution, and dwindling natural resources. Although the material standard of 
living will improve for a while, it too will eventually decrease, as will 
industrialization (capital investment). 


Dwindling natural resources are the main problem. Suppose that problem is suddenly 


solved, by a new discovery that lets us reduce our usage of natural resources by 


75%. Will our lives be better? Here's what the computer predicts, if the "new 


discovery" is made in 1970: 


NATURAL RESOURCES 


food per person 


QUALITY OF LIFE 


POPULATION 


material standard of living 


capital investment 


POLLUTION 
1900 1920 1940 1960 1980 2000 2020 2040 2060 2080 2100 


YEAR 
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The graph of natural resources changes sharply in 1970, because of the "new discovery." 
As a result, people live well, so that in 2030 the population is almost 4 times what 

it was in 1970. But the large population generates a lot of pollution; in 2030, the 
pollution is being created faster than it can dissipate. From 2040 to 2060, a pollution 
crisis occurs: the pollution increases until it is 40 times as great as in 1970; most 
of mankind consequently dies, so that the population in 2060 is a sixth of what it 

was in 2040. After the crisis, the few survivors create little pollution and enjoy 

a very high quality of life. 


Forrester tried other experiments on the computer. He tried birth control, pollution 
reduction, and other techniques. Each of them backfired. The graphs showed that the 
only way to maintain a high quality of life throughout the next century is to adopt 

a combination strategy now: 

reduce natural resource usage by 75% 

reduce pollution generation by 50% 

reduce the birth rate by 30% 

reduce capital-investment generation by 40% 

reduce food production by 20% 


OTHER POPULAR APPLICATIONS 


DYNAMO has been applied to other problems too. It was originally designed to help 
you manage a company. Plug your policies about buying, selling, hiring, and firing 
into the program's equations; when you run the program, the computer will draw a 
graph showing what will happen to your company during the next few months and years. 
If you don't like what you see, change your policies, put the new policies into the 
equations, and see whether the graphs are more optimistic. 


HOW DYNAMO DEVELOPED 


At MIT in 1958, Richard Bennett invented a language called "SIMPLE", which stands 

for "Simulation of Industrial Management Problems with Lots of Equations". In 1959, 
Phyllis Fox and Alexander Pugh III invented the first version of DYNAMO, by improving 
on SIMPLE. In 1961, Jay Forrester wrote a book called Industrial Dynanics, which 
explained how DYNAMO can help you manage a company. 


MIT is near Boston, whose mayor from 1960 to 1967 was John Collins. When he stepped 
down, he became a visiting professor at MIT. His office happened to be next to 
Forrester's. He asked Forrester whether DYNAMO could solve the problems of managing 

a city. Forrester organized a conference of urban experts and got them to turn 

urban problems into 330 DYNAMO equations involving 310 variables. Forrester ran 

the program and made the computer graph the consequences. The results were surprising. 


The graphs showed that if you try to help the underemployed, by giving them low-cost 
housing, job-training programs, and artificially-created jobs, the city becomes 
better for the underemployed, so more underemployed people move to the city, so the 
percentage of the city that is underemployed increases, and the city is worse off 
than before the reforms were begun. In other words, socialist reform just backfires. 
Another example: free public transportation creates more traffic, because it 
encourages people to live farther from their jobs. 


Instead, the graphs show that the only long-term solution to the city's problems 

is to knock down slums, fund new "labor-intensive export" businesses (businesses that 
will hire many workers, occupy little land, and produce goods that can be sold 

outside the city), and let the underemployed fend for themselves in this new 
environment. Another surprise: any city-funded housing program makes matters worse— 
regardless of whether the housing is for the underemployed, the workers, or the 
rich—because additional housing means less space for industry and hence fewer jobs. 
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If you ever become a mayor or President, use the computer's recommendations cautiously: 
they'1l improve the cities, but only by driving the underemployed out to the suburbs, 


which will worsen. 


In 1970 Forrester programmed the World Dynamics Model, to help "The Club of Rome", a 
private club of 75 people who are trying to help the world avoid ecological calamity. 


RPG 


WHICH COMPUTERS PREFER RPG? 


RPG is the most popular language for small IBM computers, such as the IBM System/3 
and the IBM System/32. 


EXAMPLE 


Suppose you have a file, called MANHOURS, stored on punched cards. There's one card 
for each employee: 


4441 | CHESTER, O.P. 040 


#2343 67 6 9 OW @ D M HS WB 17 BW W 20 21 22 23 26 23 26 27 26 29 30 BH BB 


39976BUGLE,/.M. 04! 


23453676 9 Ol B24 BS 7 BW OW 20 21 2 23 3 27H 


21450AZUR,M.P. 102 


123 4S 6 7 B@ D W W 1 DB W HG 17 1 W 20 20 22 23 34 23 WS 27 2 WH 


20331 ARMSTRONG, J.D. 045 


12.3.4 S$ 6 7 6 D WH 2 19 4 1S WH 17 WD 20 2h 22 23 24 23 26 27 28 29 30 HH 32 


106 67 G8 G9 90 M1 92 83 64 85 OS 22 23 24 25 B27 28 OH 


33 24 35 36 37 3 W 40 M1 42 43 46 45 46 47 48 49 SO Si S2 93 $4 53 96 57 SB SD GO Gi G2 G3 64 


RBwMUBATABADBDDANR 


65 66 6? 68 GO 70 71 72 73 74 7S 76 77 7O 79 GO Gi G2 G3 G4 OS OS G7 GO OP 90 M1 S2 03 02 95 95 
54 $5 56 S7 98 SO GO 61 G2 63 64 


-NSO0-NS 00 0-N2030 


$7 9B 9B 100 108 102 103 104 103 106 107 108 10D HO WH M2 MD M4 MS HS 17 OD OO CO CH) G2 123 26 WS WS 27 OS 
eee @@e0e0e 0880080 
@ @ ee ee e2@8 @ 22 23 26 23 8 27 20 29 wy BH 32 
@ e e ® @ 
@ eee e ee S4 SS 56 S7 38 SO GO G2 63 66 
e ee COG Le 9100.7 0° se 87 08 00 90 91 02 63 06 95 96 
VEC ce eee tite et eh Poe ter rar rr ee 


-NSEP0-N20P0-N420?0 


“NS OPT-NF20P0-N S000 


33 4 3S 36 37 WOW 40 41 42 43 46 4S 46 47 4B 4 90 3) SP S53 84 85 56 ST $6 90 GO Gi G62 63 64 
67 G8 G8 90 01 82 03 94 85 96 


-~NSOPTOT-NSLO0PO0-NF2O0PO0 
~NSOR0-N SOR 0-N450P0 


GS 66 67 GB GO 70 11 72 73 76 WE MS 77 76 70 GO Gi G2 63 OF G5 O6 G7 GD CD 90 HI 82 93 94 95 96 
18 3700 


On each card, columns 1-5 contain the employee's identification number; columns 6-20 
contain his name; and columns 21-23 tell how many hours he worked. Let's write an 
RPG program that makes an IBM System/3 computer print the file on the line printer, 
with extra spacing, and also print the total number of man-hours in the company, 
like this: 


ARMSTRONG, JeDe 
AZUR,» MoPeo 
BUGLE, I.Me 


CHESTER», OP. 


To write the program fill out four forms. 


Internationa! Business Machines Corporation 
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The first form describes the controls 
and files, like COBOL's environment division. 


Here's the form, filled out correctly: 


Form X21-9082 
Printed in U.S.A. 


RPG CONTROL CARD AND FILE DESCRIPTION SPECIFICATIONS 


Seg a 
Sts (a a 


12 


= 


75 76 77 78 79 80 


Refer to the specific System Reference Library manual for actual entries. 


Length of Key Field or 
of Record Address Field 


W/O/T or 1-9 
(Additional Area) 


Line 01 says "008 008". 
the program. 


7 SB 59 GO 61 62 63 64 6S 66 67 68 69 70 71 72 73 7. 


File Addition 
Number of Tracks 
for Cylinder Overflow 


Number of Extents 


Extent Exit 
for DAM 


That makes the computer reserve 8 kilobytes of memory for 
Line 02 describes the file MANHOURS; the "IP" means the file is for 


Input and is the Primary file; the "96" means each card in the file has 96 columns; 


the "MFCU1"' means card reader #1. 


Line 03 says "ADDLIST" will be the name of the 


Output file, which has 96 columns and will appear on the PRINTER. 


The second form describes the input: 


The form says the file MANHOURS is unorganized 


Form 21-8084 
Primed in U.S.A. 


75 76 77 78 79 80 


Be 
Sign 
Blonk Position 


Contro! Level (L1-L9) 


Matching Fields or 


Chaining Fields 
Field Record Relation 


I i Si Plus 
48 49 80 51/52/53 54 55 56 57 58/59 60/61 62/63 64)65 66 


Sed ett eH Ht 
ane CHREEEE a {| 


69 70/71 72 73 74 


: bo fs eo a age from the file 


is called "activity #01"; on each card, columns 1-5 contain MANNO; columns 6-20 


contain NAME, and columns 21-23 contain HRS, 
decimal point. 


a number which has 0 digits after the 
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The third form describes the calculations: 


Invernstronel Business Machines Corporation Form peli 


RPG CALCULATION SPECIFICATIONS 75 76 77 787900 
Program 
identification 


Resulting 
Indicators 


Decimat Positions 


= 
« 
“ 
« 
P) 
oa 
al 
=} 
= 


Control Level 


The form says: after each occurrence of activity #01, let HRS + TOTAL be the new 
TOTAL, which is a 5-digit number having 0 digits after the decimal point. 


The fourth form describes the output: 


Invernstions! Busnes Machines Corporation Form X21.9080 
Printed in U.S.A. 


RPG OUTPUT - FORMAT SPECIFICATIONS 75 76 77 78 79 60 


rnenn Torre T TT TT TT | sera fe G4 9 | 
emma CST Ce 


Form Type 


6 


= ode fieTe Tx T= | 


The form explains how to print the file ADDLIST. In line 01, the "D" means "here's 
how to print each line of Details"; the "10 01" means "press the carriage return 
1 time before you print the line, press it 0 times after you print the line, and do 
the printing after each occurrence of activity #01". Line 02 says to print MANNO 
so it ends in column 5. Line 03 says to print NAME so it ends in column 23; since 
the second form said NAME requires 15 columns, the computer will print NAME in 
columns 9-23. Line 04 says to print HRS so it ends in column 29; since the second 
form said HRS requires 3 columns, the computer will print HRS in columns 27-29. 

In line 05, the "T" means "here's how to print the Total"; the "30" means "press 

the carriage return 3 times before you print the line, and 0 times after"; the "LR" 
means "print it only after the last card has been read (Last Record)". Line 06 says 
to print TOTAL so it ends in column 29; since the third form said TOTAL requires 5 
columns, the computer will print TOTAL in columns 25-29. 
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After you've filled out the four forms in longhand, type what you wrote. Here's 
the RPG program: 
0101 HOO8 008 


0102 FMANHOURSIP 96 MFCU1 hom the first form 

0103 FADDLIST O 96 PRINTER 

0201 IMANHOURSAA 01 

ee : : ¥ Mee from the second form 
0204 I 21 230HRS 

D301) G.e01 HRS ADD TOTAL TOTAI 50 } from the third form 

0401 OADDLIST D 10° 01 

0402 0 MANNO 5 

0403 0 NAME 23 

ALOL Oo ae 39 from the fourth forum 
0405 O T 30 LR 

0406 O TOTAL 29 


To do that in FORTRAN or COBOL, you'd have to write a loop; you'd have to say GO TO, 
DO, or PERFORM. RPG makes the computer do loops automatically; you don't have to 
say so. The order in which you write statements is less important in RPG than in 
other languages; you're less likely to err; RPG is more reliable. 


rr 


ISP 


TWO VERSIONS 


Classical LISP comes in two versions. I'll begin by explaining the most popular, 
which is called "LISP 1.6" or "EVAL LISP". (For information about the more confusing 
version, which is called "LISP 1.5" or "EVALQUOTE LISP", see the end of this chapter.) 


SIMPLE PROGRAMS 


To write a simple LISP program, use just letters, digits, spaces, and parentheses. 
Do not use special symbols such as: 

+-* f+" 

Here's how LISP avoids those symbols: 

BASIC LISP 


Se2eNE? SC PLUS 522) 

5-2 (DIFFERENCE 5 2) 
5*2 (TIMES 5 2) 

Sylav (QUOTIENT 5 2) 
542 CEXPT 2582) 


LOVE. (QUOTE LOVE) 


For example, if you want the computer to add 5 and 2, type this: 

GPLUS > 2) 

When you press the carriage return at the end of that line, the computer will print 
the answer. (You don't have to say PRINT or RUN or any other special word.) The 
computer will print: 


VALUE IS... 
7 
If you type— 


CPUUS SL 321%) 

the computer will “add 91,3; 1, and 1 and: print: 
VALUE IS... 

6 
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Tf your type-— 
(DIFFERENCE 7 (TIMES 2 3)) 
the computer will find the difference between 7 and 2*3 and print: 


VALUE IS... 
1 
If you type— 


(QUOTE LOVE) 

the computer will print: 
VALUE IS... 

LOVE 


A string must be a single item: 
ALLOWED NOT ALLOWED 
(QUOTE LOVE) (QUOTE LOVE DEATH) 


Warning: if you're using Stanford University's LISP 1.6 on a PDP-10 computer, the 
computer will surprise you. For example, if you think an answer should be thirty-seven, 
the computer will print 45 instead. That's because the computer thinks in base eight: 
its "45" means '4 eights plus 5'', which is thirty-seven. 


THE THEORY OF LISTS 


LISP can handle lists. Each list must begin and end with a parenthesis. Here's a 
list of numbers: 

(SR/e4ne) 

Here's a list of words: 

(LOVE HATE WAR PEACE DEATH) 


Here's a list of numbers and words: 
(2 WOMEN KISS 7 MEN) 
That list has five items: 2, WOMEN, KISS, 7, and MEN. 


Here's a list of four items: 
(HARRY LEMON (TICKLE MY TUBA TOMORROW AT TEN) RUSSIA) 
The first item is HARRY; the second is LEMON; the third is a list; the fourth is RUSSIA. 


In a list, the first item is called the CAR, and the remainder of the list is called 
the CDR (pronounced "could-er" or "cudder" or 'cooder"). For example, the CAR of 
(LOVE HATE WAR PEACE DEATH) is LOVE, and the CRD is (HATE WAR PEACE DEATH). 


CONS is the opposite of CAR and CDR. For example, the CONS of LOVE with 
(HATE WAR PEACE DEATH) is (LOVE HATE WAR PEACE DEATH). 
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PROGRAMS THAT MANIPULATE LISTS 


To make the computer find the CAR of (SAILORS DRINK WHISKEY), type this: 
(CAR (QUOTE (SAILORS DRINK WHISKEY) )) 

The computer will print: 

VALUEGLS © <1: 

SAILORS 


If you type— 

(CDR (QUOTE (SAILORS DRINK WHISKEY) )) 
the computer will print: 

VALUE IS... 

(DRINK WHISKEY) 


If you type— 

(CONS (QUOTE SAILORS) (QUOTE (DRINK WHISKEY) )) 

the computer will find the CONS of SAILORS with (DRINK WHISKEY) and will print: 
VALUE IS... 

(SAILORS DRINK WHISKEY) 


If you type— 

(CAR (CDR (QUOTE (SAILORS DRINK WHISKEY) ))) 

the computer will find the CAR of the CDR of (SAILORS DRINK WHISKEY). Since the 
CDR of (SAILORS DRINK WHISKEY) is (DRINK WHISKEY), whose CAR is DRINK, the computer 
will print: 

VALUE IS... 

DRINK 


YOUR OWN FUNCTIONS 


You can define your own functions. For example, you can define (DOUBLE X) to be 2%X, 
and (TRIPLE X) to be 3*X, by typing this: 
(DEFINE (QUOTE ( 
(DOUBLE (LAMBDA (X) (TIMES 2 X)) 
(TRIPLE (LAMBDA (X) (TIMES 3 X)) 
))) 
The first line says you're going to define functions. The next line defines (DOUBLE X) 
to be (TIMES 2 X). The next line defines (TRIPLE X) to be (TIMES 3 X). The next line 
closes the parentheses that the top line opened. When you've typed those four lines, 
the computer will print: 
VALUE IS... 
(DOUBLE TRIPLE) 
Then if you type— 
(DOUBLE 4) 
the computer will print: 
VALUE IS... 
8 
If you type— 
(TRIPLE 5) 
the computer will print: 
VALUE IS... 
15 
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Let's define REPEAT to be a function, so that (REPEAT (QUOTE LOVE) 5) is 
(LOVE LOVE LOVE LOVE LOVE), and (REPEAT (QUOTE KISS) 3) is (KISS KISS KISS), and 
(REPEAT (QUOTE KISS) 0) is (). 


If N is 0, (REPEAT X N) is (). 


If N is larger than 0, (REPEAT X N) is a list of N X's. That's X followed by N-l 
more X's. That's the CONS of X with a list of N-1 more X's. That's the CONS of 
X with (REPEAT X (DIFFERENCE N 1)). That's (CONS X (REPEAT X (DIFFERENCE N 1))). 
That's (CONS X (REPEAT X (SUB1 N))), since (SUB1 N) means N-1 in LISP. 


So you can define the value of (REPEAT X N) as follows: if N is 0, the value is (); 
if N is not, the value is (CONS X (REPEAT X (SUB1 N))). Here's what to type: 
(DEFINE (QUOTE ( 

(REPEAT (LAMBDA (X N) (COND 

((ZEROP N) ()) 
(T (CONS X (REPEAT X (SUB1 N)))) 

))) 
))) 
The top line says you're going to define a function. The next line says REPEAT is 
a function of X and N, and the value depends on CONDitions. The next line gives 
one of the conditions: tf N ts ZERO, the value is (). The next line says: 
otherwise, the value is (CONS X (REPEAT X (SUB1 N))). The next line closes the 
parentheses opened in the second line. The next line closes the parentheses opened 
in the top line. The computer will print: 
VALUE IS... 
(REPEAT) 
Then if you type— 
(REPEAT (QUOTE LOVE) 5) 
the computer will print: 
(LOVE LOVE LOVE LOVE LOVE) 


The definition is almost circular. In other words, the definition of REPEAT assumes 
you already know what REPEAT is. 


For example, (REPEAT (QUOTE KISS) 3) is defined as the CONS of KISS with 
(REPEAT (QUOTE KISS) 2). But to understand that definition, you must 
understand (REPEAT (QUOTE KISS) 2), which is defined as the CONS of KISS with 
(REPEAT (QUOTE KISS) 1). But to understand that definition, you must 
understand (REPEAT (QUOTE KISS) 1), which is defined as the CONS of KISS with 
(REPEAT (QUOTE KISS) 0). But to understand that definition also, you must 
understand (REPEAT (QUOTE KISS) 0), which is defined as (). 


A definition that is almost circular is called recursive. You can say, "The 
definition of REPEAT is recursive", or "REPEAT is defined recursively", or 

"REPEAT is defined by recursion", or "REPEAT is defined by induction", or "REPEAT 
is a recursive function". You can write recursive definitions in LISP, ALGOL, and 
several other languages (such as PL/I and SNOBOL), but not in BASIC or FORTRAN. 


When the computer uses a recursive definition, the computer refers to the definition 
repeatedly before getting out of the circle. Since the computer repeats, it is 
performing a loop. In BASIC and FORTRAN, the only way to make the computer perform 
a loop is to say GO TO or FOR or DO. Although LISP contains a go-to command, LISP 
programmers avoid it, and write recursive definitions instead. 
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ITEM 


As another example of recursion, let's define the function ITEM so that (ITEM N X) 
is the Nth item in list X. Thus (ITEM 4 (QUOTE (LOVE HATE WAR PEACE DEATH))) should 
be the 4th item of (LOVE WAR PEACE DEATH), which is PEACE. 


If N is 1, (ITEM N X) is the first item in X. which is the CAR of X, which is (CAR X). 


If N is larger than 1, (ITEM N X) is the Nth item in X. That's the (N-1)th item in 
the CDR of X. That's (ITEM (SUB1 N) (CDR X)). 


So define the value of (ITEM N X) as follows: if Nis 1, the value is (CAR X); if 
N is not, the value is (ITEM (SUBl1 N) (CDR X)). Here's what to type: 
(DEFINE (QUOTE ( 
(ITEM (LAMBDA (N X) (COND 
((ONEP N) (CAR X)) 
(T (ITEM (SUB1 N) (CDR X))) 
))) 
ey) 
If your computer doesn't understand (ONEP N), say (EQUAL 1 N) instead. 


WHY USE LISP? 


LISP has three advantages over FORTRAN and BASIC: 

1. LISP allows recursive definitions. FORTRAN and BASIC do not. 

2. LISP lets you handle lists flexibly: you can make a list so some of its items 
are strings, some items are numbers, and some items are themselves lists of 
Varying tengetis—snort) lists eedonge lists wands lists of lists (of lists “of lists. of 
Insts... 2). Your program cens change the lists structure: ‘you*can*make’ the List 
longer, then shorter, then replace one of its items by a list of other items, etc. 
FORTRAN and BASIC permit only list structures that are simple, described in the 
DIMENSION statement and never changed. 

3. LISP makes the computer periodically delete from its memory all the variables 
you are no longer using, and use that memory to hold new variables instead. That 
activity is called garbage collectton. LISP makes the computer do it automatically, 
without the programmer having to say so. To collect garbage in BASIC and FORTRAN, 
you'd have to explain to the computer exactly how and when, by writing a 
garbage-collecting subroutine, which is difficult. 

For those reasons, LISP is the most popular language among researchers in artificial 

intelligence, who try to make the computer win checkers and chess, prove theorems, 

understand English, and control a robot's muscles, sense organs, and thinking. 
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There are many variations of LISP. QLISP, PLANNER, and CONNIVER contain extra 
features that make the computer prove theorems. For example, suppose you want to 
solve this problem, by using PLANNER: 
Nixon is human. 
Socrates is human. 
ocrates is Greek. 
11 humans are fallible. 
s there a fallible Greek? 
Type this: 
(HUMAN NIXON) 
(HUMAN SOCRATES) 
(GREEK SOCRATES) 
(THCONSE (X) (FALLIBLE $?X) (THGOAL (HUMAN $?X))) 
(THPROG (X) 
(THGOAL (FALLIBLE $?X) (THTBF THTRUE)) 
(THGOAL (GREEK $?X)) 


The computer will print SOCRATES. 


LISP requires ridiculously many parentheses and uses awkward symbolism, such as 
QUOTE, LAMBDA, and COND. To remedy those flaws, several improvements have been 
invented: MLISP2 (which will be expanded to form LISP70) and TREET combine LISP's 
power with ALGOL's simplicity. LOGO combines elements from LISP and BASIC, and adds 
extra features so you can produce art and music and control robots that look like 
turtles. 


LISP 1.5 


I explained how to write commands in LISP 1.6 (or EVAL LISP). To write a command 

in LISP 1.5 (or EVALQUOTE LISP), make two changes: 

1. Begin the command with a word, instead of a parenthesis. For example, instead 
of saying (PLUS 2 2), say PLUS (2 2). Instead of saying (DIFFERENCE 7 (TIMES 2 3)), 
say DIFFERENCE (7 (TIMES 2 3)). 

2. Omit the word QUOTE and its parentheses, unless the QUOTE is in a command that's 
in a command. For example, instead of CAR ((QUOTE (SAILORS DRINK WHISKEY))), say 
just CAR ((SAILORS DRINK WHISKEY)). But in CAR ((CDR (QUOTE (SAILORS DRINK 
WHISKEY)))), you must keep the QUOTE, because it is in the command CDR which is 
in the command CAR. 


Write a function definition in LISP 1.5 the same as in LISP 1.6, except for the 
top and bottom lines: 
TOP AND BOTTOM LINES IN LISP 1.6 TOP AND BOTTOM LINES IN LISP 1.5 


(DEFINE (QUOTE ( DEFINE (( 
))) )) 


Leave the middle lines unchanged. 
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HOW COBOL DEVELOPED 


From 1954 to 1958, Sperry Rand Corp. (which makes UNIVAC computers) developed a 
language called FLOW-MATIC, to solve problems in business. In 1958, the Air Force 
developed a variation called AIMACO. From 1957 to 1959, IBM developed a competing 
language, called COMMERCIAL TRANSLATOR. From 1959 to 1960, Honeywell Corp. developed 
another competing language, called FACT. 


In April 1959, a group of programmers and manufacturers met at the University of 
Pennsylvania and decided it would be better to have a stngle business-oriented 
language for alZ computers. The group arranged for a larger group to meet at the 
Pentagon in May. At the May meeting, the large group created a committee that 
later created a subcommittee that created COBOL. 


From FLOW-MATIC, COBOL borrowed the idea of beginning each statement with an English 
' verb, and separating the data descriptions from the procedures. From COMMERCIAL 
TRANSLATOR, COBOL borrowed group items (01 and 02), PICTURE symbols, fancy IF THEN, 
and COMPUTE formulas. 


The members of the COBOL committee argued with each other. Some members wanted 

COBOL to Ag state Aa aed construct mathematical formulas by using these symbols: 
+ - = 

But other members of the committee disagreed: they said that since COBOL is supposed 
to be for stupid businessmen who fear formulas, COBOL ought to use the words ADD, 
SUBTRACT, MULTIPLY, and DIVIDE instead. The committee compromised: when you write 
a COBOL program, you can use the words ADD, SUBTRACT, MULTIPLY, and DIVIDE, or a 
formula; but if you use a formula, you must warn the computer, by putting the word 
COMPUTE in front of the formula. 


COBOL can handle short numbers. Can it handle long numbers also? How long? How 
many digits? The committee decided that COBOL would handle any number up to 18 
digits long. The committee also decided that COBOL would handle any variable name 
up to 30 characters long. So the limits of COBOL are "18 and 30". Why did the 
committee pick those two numbers—"18 and 30'—instead of "16 and 32"? Answer: 
some manufacturers wanted "16 and 32" (because their computers were based on the 
numbers 16 and 32), but other manufacturers wanted other combinations (such as 
"24 and 36"); the committee, hunting for a compromise, chose "18 and 30", because 
nobody wanted it, and it would therefore give no manufacturer an unfair advantage 
over competitors. In other words, COBOL was designed to be equally terrible for 
everybody! That's politics! 


In 1960, the Department of Defense announced it would buy only computers that 
understand COBOL, unless a manufacturer can demonstrate why COBOL would not be helpful. 
In 1961, Westinghouse Electric Corp. made a similar announcement. Other companies 
followed. COBOL became the most popular computer language. 


COBOL 60 was improved, to form COBOL 61. A "Report Writer" feature and the verb 
SORT were introduced in 1962. Then came COBOL 65, COBOL 68, and COBOL 74. 


Most large computers still use COBOL 68. To write business programs on a minicomputer, 
you have to use a small part of COBOL 74, or BASIC, or FORTRAN, or RPG (on IBM 
computers), or DIBOL (on PDP computers), or DATABUS (on Datapoint computers). No 
computer understands full COBOL 74 yet. 
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COBOL'S FLAWS 


CONOL has some little flaws. For example, according to COBOL, the data division's 

FD must contain information about labeling. But labeling describes the envinonment, 
not the data, and therefore ought to belong in the environment division instead. 

Jean Sammet, who headed the subcommittee that invented COBOL, admits her subcommittee 
made a mistake about where to put the labeling. But it's too late to change COBOL now. 


COBOL'S POPULARITY 


COBOL remains the most popular language for large computers. IBM tried to make 
programmers switch from COBOL to PL/I, but didn't succeed. 


For minicomputers and microcomputers, programmers have switched to BASIC. 


2) 


PSS 


WHAT DOES GPSS ANALYZE? 
A queue is a line of people who are waiting. GPSS analyzes queues. 
EXAMPLE 


For example, let's use GPSS to analyze the customers in "Quickie Joe's Barbershop". 
Joe is the only barber in the shop, and he spends exactly 7 minutes on each haircut. 
(That's why he's called "Quickie Joe"'.) About once every 10 minutes, a new customer 
enters the barbershop; more precisely, the number of minutes before another 

customer enters is a random number between 5 and 15. Let's make the computer 
imitate the barbershop, and summarize what happens to the first 100 customers. 


Here's the program: 


SIMULATE 
GENERATE 10,5 A new customer comes every 10 minutes + 5 minutes. 
QUEUE JOEQ He waits in the queue, cakled JOEQ. 
SEIZE JOE When his turn comes, he serzes JOE, 
DEPART JOEQ which means he Leaves the JOEQ. 
ADVANCE i) After 7 minutes go by, 
RELEASE JOE he neLeases JOE (40 Someone else can use JOE) 
TERMINATE 1 and Leaves the shop. 
START 100 Do akk that 100 times. 
END 
* A 
&th 19th 
cofLumn column 


When you run the program, the computer will print many numbers. For example, it 
will tell you that Joe was working 68.5% of the time (the rest of the time, his 

shop was empty and he was waiting for customers). There was never more than 1] 
customer waiting. "On the average'', .04 customers were waiting. There were 

101 customers (the 10lst customer stops the experiment); 79 of them (78.2% of them) 
obtained Joe immediately and didn't have to wait. The "average customer" had to 
wait in line .405 minutes. The "average not-immediately-served customer" had to wait 
in line 1.863 minutes. 
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Below the RELEASE statement and above the TERMINATE statement, you can insert two 
extra statements: 
TABULATE i 

1 TABLE M1,0,1,26 
rh 
column 
They make the computer print even more information. The computer will say that of 
the 100 serious customers, the "average customer'’ spent 7.369 minutes in the shop 
(from when he walked in to when he walked out). More precisely, 79 customers spent 
7 minutes each; 9 customers spent 8 minutes each; 9 customers spent 9 minutes each; 
2 customers spent 10 minutes each; and 1 customer had to spend 11 minutes. The 
computer also prints the "standard deviation", "cumulative tables", and other 
statistical claptrap. 


On your own computer, the numbers might be slightly different, depending on how the 
random numbers came out. To have more faith in the computer's averages, try 1000 
customers instead of 100. 


ALTERNATIVE LANGUAGES 


For most problems about queues, GPSS is the easiest language to use. But if your 
problem is very complicated, you might have to use SIMSCRIPT (based on FORTRAN) or 
SIMULA (an elaboration of ALGOL) or SIMPL/I (an elaboration of PL/I). 
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SIMPLE EXAMPLES 


Here's a SNOBOL program: 
Aa=n—2 
Ba=eA +1026 
C = "BODY TEMPERATURE IS 9" B 
OUTPUT = "MY "C 


END 

Indent each line except END. Indent at least one space; you can indent more spaces 
if you wish. Put spaces around the symbol =, the symbol +, and other operations. 

The first line says A is the integer -2. The next line says B is the real number 8.6 
The next line says C is the string ''BODY TEMPERATURE IS 98.6". The next line makes 
the computer print: 

MY BODY TEMPERATURE IS 98.6 


In SNOBOL, a variable's name can be short (like A or B or C) or very long (as long 
as you wish). For long names, SNOBOL uses periods instead of hyphens: 

COBOL SNOBOL 

NUMBER-OF-BULLIES-I-SQUIRTED NUMBER.OF.BULLIES.1.SQUIRTED 


This program's more advanced: 
LOOP OUTPUT UGATS 
OUTPUT = "DOG" : (LOOP) 


END 

The first line (whose name is LOOP) makes the computer print: 
CAT 

The next line makes the computer print— 

DOG 

and then go to LOOP. Altogether the computer will print: 
CAT 

DOG 

CAT 

DOG 

CAT 

DOG 

eer 
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SNOBOL lets you easily replace one phrase by another. 
X = "SIN ON A PIN WITH A DIN" 
xX "Ty" = SUCK 
OUTPUT X 


END 

The first line says X is the string "SIN ON A PIN WITH A DIN". The next line says: 
in X, replace the first "IN" by "UCK". So X becomes "SUCK ON A PIN WITH A DIN". 
The next line says the output is X, so the computer will print: 

SUCK ON A PIN WITH A DIN 


That program changed the first "IN" to "UCK". Here's how to change every "IN" 
to "UCK": 
X = "SIN ON A PIN WITH A DIN" 


X "Ty! = "UCK" 
X “rN” = “TIGK. 
xX wTN! = "UCK"" 
OUTPUT = X 


END 

The first line says X is "SIN ON A PIN WITH A DIN". The second line replaces an 
"IN" by "UCK", so X becomes "SUCK ON A PIN WITH A DIN". The next line replaces 
another "IN" by "UCK'', so X becomes "SUCK ON A PUCK WITH A DIN". The next line 
replaces another "IN'', so X becomes "SUCK ON A PUCK WITH A DUCK", which the next 
line prints. 


This program does the same thing: 

X = "SIN ON A PIN WITH A DIN" 
LOOP X "IN" = "UCK'" :S(LOOP) 

OUTPUT = X 
END 
The first line says X is "SIN ON A PIN WITH A DIN". The next line replaces "IN" 
successfully, so X becomes "SUCK ON A PIN WITH A DIN". At the end of the line, 
the means: if Successful, go to LOOP. So the computer goes back to LOOP. 
The computer replaces "IN" successfully again, so X becomes "SUCK ON A PUCK WITH A 
DIN", and the computer goes back to LOOP. The computer replaces "IN" successfully 
again, so X becomes "SUCK ON A PUCK WITH A DUCK", and the computer goes back to LOOP. 
The computer trtes to replace "IN" again; but since X doesn't contain an "IN" now, 
the computer does not succeed. So the computer ignores the |:S(LOOP)|, and proceeds 
instead to the next line, which prints: 
SUCK ON A PUCK WITH A DUCK 


DELETING 


This program deletes the first "IN": 
X = "SIN ON A PIN WITH A DIN" 
X wTNU 
OUTPUT 


X 

END 

The second line. says to replace an "IN" by nothing. In other words, it deletes an 
"IN". X becomes "S ON A PIN WITH A DIN", which the computer will print. 


This program deletes every "IN": 
X = "SIN ON A PIN WITH A DIN" 
LOOP X "IN" = :S(LOOP) 
OUTPUT = X 
END 
The computer will print: 
S ON A P WITH A D 
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Let's count how often "IN" appears in "SIN ON A PIN WITH A DIN". Here's how.... 
Delete each "IN"; but each time you delete one, increase the COUNT by 1. Here's 
the program: ; 

X = "SIN ON A PIN WITH A DIN" Define X. 


COUNT = 0 Start the COUNT at 0. 
LOOP X "IN" = :F(ENDING) Try to dekete an "IN"; 4§ Fathing, go to ENDING. 
COUNT = COUNT + 1 :(LOOP) Increase the COUNT by 1, and go back to LOOP. 
ENDING OUTPUT = COUNT Print the COUNT. 
END 
The third line tries to delete an "IN": tf successful, the computer proceeds to 


the next line, which increases the COUNT and goes back to LOOP; but zf fazling 
(because no "IN" remains), the computer goes to ENDING, which prints the COUNT. 
The computer will print: 

3 


HOW SNOBOL DEVELOPED 


At MIT during the 1950's, Noam Chomsky invented a notation called transformattonal- 
generative grammar, which helps linguists analyze English and translate betweeen 
English and other languages. His notation is as important to linguists as algebra 
is to scientists. (A decade later, he became even more famous, for starting the 
rebellion against the Vietnam War.) 


In 1957 and 1958, his colleague Victor Yngve developed a computer language called 
COMIT, which uses Chomsky's notation. COMIT is as convenient for linguists as FORTRAN 
is for scientists. 


At Bell Telephone Laboratories in 1962, Chester Lee invented a similar language, 
called Symbolic Communication Language (SCL). Like COMIT, it manipulated string. 
COMIT manipulated strings of words, but SCL manipulated strings of mathematical 
Symbols. SCL was used for abstract mathematics. 


A team at Bell Telephone Laboratories decided to invent a language, similar to SCL, 
but easier to learn and including features from COMIT. What should they name their 
new language? At first, they called it SCL7, because it resembled SCL. Then they 
changed the name to SEXI (which stands for String EXpression Interpreter), but the 
management of Bell Telephone Laboratories didn't like sex. Then, as a joke, they 
named it SNOBOL, using the flimsy excuse that SNOBOL stands for StriNg-Oriented 
symBOlic Language. 


Cynics jeered that SNOBOL didn't have "a snowball's chance in Hell". But the cynics 
were wrong, and SNOBOL became popular. It was used mainly for writing programs that 
translate between computer languages. (For example, you could write a SNOBOL program 
that translates FORTRAN into BASIC.) 


Which is better: COMIT or SNOBOL? People who like Chomsky's notation (such as 
linguists) prefer COMIT. People who like algebra (such as scientists) prefer SNOBOL. 


SNOBOL's supporters were more active than COMIT's: they produced SNOBOL 2, SNOBOL 3, 
SNOBOL 4, and SNOBOL 4B, taught SNOBOL to the newest computers, wrote many books 
about SNOBOL, and emphasized that SNOBOL can solve any problem about strings, even 

if the problem has nothing to do with linguistics. They won: most people use SNOBOL 
instead of COMIT, though COMIT might still make a comeback. 


Today, most versions of SNOBOL are named after baseball pitching methods—such as 
FASBOL, SLOBOL, and SPITBOL. (SPITBOL stands for SPeedy ImplemenTation of snoBOL.) 
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WHO IS KEMENY ? 


BASIC's success is due largely to John Kemeny, a colorful character who has changed 
many lives, including mine. Here is the saga of Kemeny.... 


In 1926, he was born as a Hungarian Jew. In 1940, he and his parents fled to America, 
to escape the Nazis. When he began high school in New York, he knew hardly any 
English; nevertheless, he graduated as the top student in the class. Four years later, 
he graduated from Princeton 4umma cum Laude, even though 14 of those years he had to 
spend in the Army, where he helped solve equations for the atomic bomb. 


Two years after his B.A., he got a Ph.D. in mathematics and philosophy, because his 
thesis on symbolic logic combined both fields. While working for the Ph.D., he was 
also Einstein's youngest assistant. But he told Einstein he wanted to drop 
mathematics, and instead hand out leaflets for World Peace. Eistein said: handing 
out leaflets would waste his talents; the best way for him to work for World Peace 
would be to become a famous mathematician, so people would Zzisten to him, as they 
had to Einstein. He took Einstein's advice, and stayed with math. 


After getting his Ph.D., he taught symbolic logic in Princeton's philosophy department, 
and had the good fortune to bump into J. Laurie Snell, who taught statistics in the 
math department. Here's how they met....A student walked up to Snell after class and 
asked, "Is it true that if I stand at Times Square long enough, I'll meet my long-lost 
brother?" Snell asked, "What are you talking about? Who said so?" The student 

said, "Professor Kemeny in the philosophy department''. Kemeny had been giving a 
philosophical lecture on "random-walk" probabilities. 


In 1953, most of Dartmouth College's math professors were retiring, so Dartmouth 

asked Kemeny to come to Dartmouth, chair the department, and "bring all your friends". 
He accepted the offer and brought his friends. That's how Dartmouth stole Princeton's 
math department. 


He discovered an easier method for handling ''Markov chain" probabilities. He told 
Snell (whom he had stolen). Snell asked, ''Can your method prove thts theorem...?" 
Kemeny proved it. Snell asked, "Can your method prove thts theorem also...?'' Kemeny 
proved it. By that kind of dialogue, Kemeny and Snell co-authored Finite Markov 
Chains, which in turn led to Finite Mathematics and Fintte Mathematical Structures , 
co-authored by Kemeny, Mirkil, Snell, and Thompson. In their honor, the department's 
vice-chairman named his pig 'Sir Kemeny-Mirkil-Snell-Thompson". Mirkil committed 
suicide, though not because of the pig. 


Kemeny's department got General Electric to sell Dartmouth a computer at a 90% 
discount, in return for which Dartmouth had to invent programs for it and let 

General Electric use them. To write the programs, Kemeny invented his own little 
computer language in 1963 and showed it to his colleague Thomas Kurtz, who knew less 
about philosophy but more about computers. Kurtz added features from ALGOL and FORTRAN 
and called the combination ''BASIC". 


After inventing BASIC, Kemeny became bored, and thought of quitting Dartmouth. 
Then Dartmouth asked him to become president of the college. He accepted. 


Later, when the Three-Mile Island nuclear power plant almost exploded, President 
Jimmy Carter told Kemeny to head the investigation, because of Kemeny's reputation 
for profound philosophical and scientific impartiality. Kemeny's report was 
impartial—and sharply critical of the nuclear industry. 
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BASIC is simpler than both ALGOL and FORTRAN in two ways: 
1. In ALGOL and FORTRAN, you must tell the computer which variables are integers 


and which are reals. In ALGOL, you do that by saying INTEGER or REAL. In FORTRAN, 
you do that by choosing an appropriate first letter for the variable's name. 
In BASIC, the computer assumes all variables are real. 

2. In ALGOL and FORTRAN, output is a hassle. In FORTRAN, you have to worry about 
FORMATs. In ALGOL, each computer handles output differently—and in most cases 


strangely. BASIC's PRINT statement automatically invents a good format. 


Is BASIC closer to ALGOL than to FORTRAN? On the one hand, BASIC uses the ALGOL 
words FOR, STEP, and THEN and the ALGOL symbol +. On the other hand, BASIC uses 
the FORTRAN words RETURN and DIMENSION (abbreviated DIM); and BASIC's 

"FOR I = 1 TO 9 STEP 2" puts the step size at the end of the statement, like 
FORTRAN's "DO 30 I = 1,9,2" and unlike ALGOL's "FOR I:=1 STEP 2 UNTIL 9". 


BASIC is not the simplest computer language. "JOSS", which was developed a year 


earlier by the RAND Corporation, is simpler to learn. But JOSS doesn't have string 
variables and doesn't name programs (you must give each program a number instead, 
and remember what the number was). Also, programs written in JOSS run more slowly 
and require more of the computer's memory than if written in BASIC. 


SIX VERSIONS 


Kemeny and Kurtz finished the original version of BASIC in May 1964. It included only 
these statements: IF...THEN, FOR...NEXT, DATA...READ, GO SUB...RETURN, GO TO, PRINT, 
LET, REM, DIM, DEF, and END. 


In that version, the only punctuation allowed in the PRINT statement was the comma. 
The second version of BASIC (October 1964) added the semicolon. 


The third version (1966) added the words INPUT, RESTORE, and MAT. Kemeny included 
fancy MAT functions (such as TRN, IDN, and INV), to help his students compute 
Markov-chain MATrix probabilities. 


In all those versions, you could use variables. For example, you could say LET X=3. 
A variable was a letter that stood for a number. The fourth version (1967) added a 
new concept: string variables (such as A$). That version also added TAB (to improve 
the printing), RANDOMIZE (to improve RND), and ON...GO TO. 


The fifth version (1970) added data files (sequential access and random access). 


The sixth version (1971) added PRINT USING and a sophisticated way to handle 
subroutines—a way so sophisticated that most microcomputers don't have it yet! 
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HOW BASIC BECAME POPULAR 


Kemeny and Kurtz worked on BASIC with a fervor that was almost religious. They 
believed every college graduate should know how to program a computer, and be as 
literate in BASIC as in English. They convinced Dartmouth to spend as much on its 
computer as on the college library. They put computer terminals in practically 
every college building (even in the dorms), and let all the kids who lived in the 
town come onto the campus and join the fun. Altogether, the campus has about 300 
terminals. 90% of all Dartmouth students use BASIC before they graduate. 


Dartmouth trained high-school teachers how to use BASIC. Soon many colleges, 
high schools, and prep schools throughout New England had terminals connected to 
Dartmouth's computer via telephone. 


When Digital Equipment Corp. sold PDP-8 computers that understood both BASIC and 
FOCAL (a stripped-down version of JOSS), programmers said they preferred the BASIC. 
So Digital chose BASIC to be the main language for its PDP-11, which has become the 
—most popular minicomputer in the world. 


Inspired by the PDP-8 and PDP-11 minicomputers, Bill Gates wrote a version of BASIC 
for miciOcomputers; he called it Microsoft BASIC. It became an instant success. 


WILL BASIC REPLACE FORTRAN? 


Since BASIC is simpler than FORTRAN, many FORTRAN programmers are switching to BASIC. 

But some scientists still use FORTRAN, for these reasons: 

1. FORTRAN allows long variable names (6 letters). Some versions of BASIC do not. 

2. A program will run more quickly in FORTRAN than in BASIC, if the program contains 
many loops or will be used by many people. 

3. FORTRAN allows complex numbers. 

4. FORTRAN lets you choose your own format for input. 

5. In FORTRAN's CALL statement, you can use parentheses. In BASIC's GOSUB statement, 
parentheses are forbidden. 

6. All versions of FORTRAN are decent. Some versions of BASIC are lousy—especially 
the version on IBM maxicomputers. (IBM spurns BASIC almost as much as ALGOL, and 
for the same reason: the language was invented by non-IBMers.) 

7. By the time BASIC was invented, many FORTRAN programs had been written already. 
To improve those programs, it's easier to add a few more lines of FORTRAN than 
to translate the whole program into BASIC. 


In spite of those seven arguments for FORTRAN, BASIC's popularity is increasing 
rapidly. In the future, more scientists will use BASIC than FORTRAN, though the 
toughest programs will still require FORTRAN. 
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APL 
SIMPLE CALCULATIONS 


To use APL tele type on a special terminal, whose keyboard looks like this: 


HHNBHBRBRRABBIESIS 
J AnBBAABDR 
|| =) Uy pde 
A eos HAeIraPinacays ed 
SPACE 


To compute 8+9, type this: 

8+9 
When you press the carriage return at the end of that line, the computer will print 
the answer. (You don't have to say RUN or PRINT or any other special word.) The 
computer will print: 


17 

Altogether, the conversation looks like this: 
8+9 

by) 


What you type (the 8+9) is indented. The computer's answer (the 17) begins at the 


left margin. Whenever it's your turn to type, the computer automatically presses 
the space bar six times, so what you type will be indented six spaces. 
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SCALAR OPERATORS 


APL uses these scalar operators: 


APL NAME 

plus A+B 
minus A-B 
negative =p 
times AxB 
signum xB 
divide A+B 


reciprocal +B 


power A*B 
exponential *B 
log A®B 
natural log 8B 
maximum AfB 
ceiling rB 
minimum ALB 
floor LB 
residue A|B 
magnitude |B 


binomial A!B 


factorial 1B 
roll 2B 
circular AOB 


pi times OB 
less A<B 
greater A>B 
equal A=B 


not less A2B 
not greaterA<B 
not equal A#B 


and AAB 
or AVB 
not ~B 
nand AXB 
nor AWB 


SYMBOL MEANING 


add 

subtract 

negative 

multiply 

Werte) velo fe B<0°7. 0 11 f 48-0 
divide 

1 


B 
he in other words, A raised to the Bth power 


eP where e is 2.718281828459045 
log ,B 


log 8 


A or B, whichever is larger 

B rounded up to an integer 

A or B, whichever is smaller 

B rounded down to an integer 

the remainder when you divide A into B; for example, 4]19 is 3 

the absolute value of B 

how many A-element subsets you can form from a set of B elements; 
for example, 3!5 is 10 

1 times 2 times 3 times 4 times ... 

a random integer from 1 to B 

v1-B2 if A=0; sin B if A=1; cos B if A=2; tan B if A=3; 
V1+B2 if A=4; sinh B if A=5; cosh B if A=6; tanh B if A=7; 
arcsin betrt A= 1; arccos B if A=;2; arctan B if A= 3; 
¥B2-1 if A= 4; arcsinh B if A= 5; arccosh B if A= 6; 
arctanh B if A= 7 


times B 


T times B 

1 if A is less than B; otherwise 0 

1 if A is greater than B; otherwise 0 

1 if A equals B; otherwise 0 

1 if A is greater than or equal to B; otherwise 0 
1 if A is less than or equal to B; otherwise 0 
1 if A is not equal to B; otherwise 0 

1 if A and B are both 1; otherwise 0 

1 if A or B is 1; otherwise 0 

1 if B is 0; otherwise 0 

1 if A and B are not both 1; otherwise 0 

1 if neither A nor B is 1; otherwise 0 


To make the symbol @, type the symbol *, then press the BACK SPACE key, then type 


the symbol Oo. 
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ORDER OF OPERATIONS 


The computer does all calculations from right to left. For example, if you type— 
2x3+5 

the computer will start with 5, add 3 (to get 8), and then multiply by 2 (to get 16). 

The computer will print: 


16 
In BASIC, FORTRAN, and most other Languages, the answer would be 11 instead. 


tiAyou type—— 
9-4-3 
the computer will start with 3, subtract it from 4 (to get 1), and then subtract from 
9 (to get 8). The computer will print: 
8 
In most other computer Languages, the answer would be 2 instead. 


You can use parentheses. Although 9-4-3 is 8, (9-4)-3 is 2. 


Compare these examples: 

-4+6 is “10 

BA+6715 52 

In both examples, the 4 is preceded by a negative sign; but in the second example, 

the negative sign is raised, so it is as high as the 4. (To make the raised negative, 
hold down the SHIFT key while you type a 2. To make the regular negative, hold down 
the SHIFT key while you type a +.) The first example makes the computer start with 

6, add 4 (to get 10), and then negate it (to get ~10). The second example makes the 
computer start with 6, and add a “4; the answer is 2. 


DOUBLE PRECISION 
APL is super-accurate. It does all calculations by using double-precision. 


VARIABLES 


You can use variables: 
X<3 
X42 
The first line says X is 3. The second line makes the computer print X+2. The computer 
will print: 
5 


A variable's name can be long—up to 77 letters and digits. The name must begin with 
a letter. 


VECTORS 
A variable can stand for a list of numbers: 
¥<5 2 8 
Y+1 


The first line says Y is the vector 5 2 8. The next line makes the computer add 1 


to each item and print: 
oh AY 


This program prints the same answer: 
52 otl 

The computer will print: 

(op Sie Be) 
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This program prints the same answer: 
145 2 8 


You can add a vector to another vector: 

Ac5 2.1 6 

B<3°278' a7 

A+B 
The computer will add 5 to 3, and 2.1 to 2.8, and 6 to 7, and print: 
Shae. Oye 1 


This program prints the same answer: 
5 2.1 643 2.8 7 


This program prints the same answer: 
A«5 2.1 6 
Be3e2).8 5/ 
C<«A+B 
C 


Here's something a bit different: 

XH pias 

+/X 
The first line says X is the vector 4 2 3. The next line makes the computer print 
the sum, 9. 


This program prints the same answer: 
Y¥<+/4 2 3 
Y 


You can combine many ideas on the same line, but remember that the computer goes 
from right to left: 

219-1 4 3+6x+/5 1 3x2 47 
The computer will start with 2 4 7, multiply it by 5 1 3 (to get 10 4 21), find the 
sum (which is 35), multiply by 6 (to get 210), add 1 4 3 (to get 211 214 213), and 
then subtract from 219 (to get 8 5 6). The computer will print: 
8 5 6 


Each of APL's scalar operators works similarly to addition. Here are a few examples: 
2e4010x3, 109. 18.6128 90 


Peo ON Ser ald au 

Jee OmiSim 2s o4..910 

x/2 4 10 is 2x4x10, which is 80 

-/9 5 3 is 9-5-3, which is 7 (since the computer works from right to left) 

L/6.1 2.7 4.9 is 6.1L2.7L4.9, which is 2.7 (since L means minimum) 

L6.1 2.7 4.9 is L6.1 followed by L2.7 followed by L4.9, which is 6 2 4 (since L means 
floor) 
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VECTOR OPERATORS 


Here are vector operators; the examples assume V is 8 5 2 7: 


APL NAME SYMBOL VALUE REASON 

size eV 4 V has 4 items 

reshape 90V aie eobeys WALES I make 9 items from V 

catenate V,6 4 pad ete FP May ss V followed by 6 4 

index vo3 1) 2 8 v's 3°¢ item and 18¢ item 

reverse oV i208 reverse V 

rotate 1oV piers Vf te: rotate V, by beginning after the 
1 item 

index generator 14 120554 count up to 4 

index of vi2 8 9 BNE innver tind 2,8, ‘and 29: 
2818 Vis 93°71 tem; 
8 is v's 18" item; 
9 isn't in V (and is therefore 
a "5th item) 

take 3t+V Suez the first 3 items from V 

take aot, 5a, the last 3 items from V 

drop 3+V 7 omit the first 3 items from V 

drop ~34V 8 omit the last 3 items from V 

grade up Av B24" } v's smallest item is 2, V's 34 item; 
the next smallest is 5, V's 2"4 item; 
the next smallest is 7, V's 4th item; 
the largest is 8, V's 1St item 

grade down yv 42 93 V's largest item is 8, V's 1St item; 


the next largest is 7, V's 4t) item; 
the next largest is 5, V's 2" item; 
the smallest is 2, V's 3°4 item 


membership 7 5 6€V 110 find whether 7, 5, and 6 are in V; 
the answers are: yes, yes, no 

compress LeOn0 CLV 8 7 take part of V, using this pattern: 
take, omit, omit, take 

expand LIOAOFEALMINVS #82040 8522 47 insert zeros into V, using this 
pattern: item, 0, 0, item, item, 
item 

decode 10LV 8527 (((8)10+5)10+2 )10+7 

decode 0 7 24 601LV 87967 (((8)7+5)24+2)60+7; in other words, 
if a week is 7 days, and a day is 
24 hours, and an hour is 60 minutes, 
then 8 weeks 5 days 2 hours 7 minutes 
is 87967 minutes 

encode 007 2460787967 8 25°92 *7 87967 minutes is 8 weeks 5 days 
2 hours 7 minutes 

deal 3710 depends a list of 3 different random integers 


(no repetitions); the integers are 
small (from 1 to 10) 


LOVE OR HATE? 
Some programmers Love APL, because its notation is brief. Others hate APL, because 


its notation is hard for a human to read. The haters seem to be winning, and the 
percentage of programmers who use APL is decreasing. 
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L/I 


HOW PL/I DEVELOPED 


U 


In 1963, IBM began inventing a new language that would improve on traditional FORTRAN. 
At first, IBM called the new language ''FORTRAN VI". As work on it progressed, IBM 
realized it would be so different from traditional FORTRAN that it should have a 
different name. In 1964, IBM changed the name to "NPL" (New Programming Language). 
When IBM discovered that the letters "NPL" already stood for the National Physics 
Laboratory in England, IBM changed the name to "PL/I" (Programming Language One). 


STATEMENTS 
PL/I uses these statements for input and output: 
STATEMENT'S 
FIRST WORD WHAT THE COMPUTER WILL DO 
GET input from a terminal or from a typical file 
PUT print on a terminal or on a typical file 
OPEN start using a file 
CLOSE stop using a file 
READ input from a file whose picture is unedited 
WRITE print on a file whose picture is unedited 
DELETE delete an item from a file 
REWRITE replace an item in a file 
FORMAT use a certain form for spacing the input and output 
DISPLAY print on the computer center's main terminal (used by the operator), 
and wait for the operator to reply 
LOCATE print a "based" variable onto a file 
UNLOCK let other programs use the file 
These statements interrupt: 
STATEMENT'S 
FIRST WORD WHAT THE COMPUTER WILL DO 
STOP stop the program 
DELAY pause for a certain length of time 
WAIT pause, until other simultaneous routines have completed their tasks 
EXIT stop a task, in a program that involves several tasks 
HALT . interrupt the program, and free the terminal to do other tasks 


These statements handle conditions: 


STATEMENT'S 

FIRST WORD WHAT THE COMPUTER WILL DO 

IF if a certain condition occurs now, do certain statements 

ON throughout the rest of the block of statements, if a certain unusual 
condition ever occurs (such as OVERFLOW), do certain statements 

SIGNAL pretend an unusual condition occurs (such as OVERFLOW), and do what 
the ON statement says 

REVERT throughout the rest of the block of statements, ignore the ON statements 


that occurred previously in the block 


These statements handle variables: 


STATEMENT'S 

FIRST WORD WHAT THE COMPUTER WILL DO 

DECLARE make some variables be integers, others be reals, others be strings, 
others be filenames, etc. 

DEFAULT change the general assumptions about variables; for example, assume all 
variables are integers 

ALLOCATE create a temporary variable 

FREE destroy a temporary variable, so the memory it was using can be used 


for something else 


Page 52: PL/I 


These statements handle general logic: 


STATEMENT'S 

FIRST WORD WHAT THE COMPUTER WILL DO 

GO go to a different line 

CALL go to a subroutine 

RETURN return from a subprogram to the main routine 

PROCEDURE begin a program or subprogram 

DO begin a loop or compound statement 

BEGIN begin a block of statements 

END end a program, subprogram, loop, compound statement, or block of statements 
ENTRY when requested, skip the previous lines of the subprogram and begin here 


instead 


Half of those statements are borrowed from FORTRAN, ALGOL, and COBOL. 
from FORTRAN: FORMAT, STOP, CALL, RETURN, DO 

IF, GO, PROCEDURE, BEGIN, END 

OPEN, CLOSE, READ, WRITE, DISPLAY, EXI 


Each PL/I statement ends with a semicolon. Besides the statements I've listed, you 
can also give an asstgnment statement (such as "N=5;"), a null statement (which 


consists of just a semicolon), and a preprocessor statement (which tells the computer 
how to create its own program). 


EXTRA VOCABULARY 


Of all the high-level computer languages, PL/I gives you the most control over the 

computer. 

built-in functions, which you can put in an assignment statement, after the equal 
sign: ABS ACOS ADD ADDR ALL ALLOCATION ANY ASIN ATAN ATAND ATANH BINARY BIT BOOL 
CEIL CHAR CONJG COS COSD COSH COUNT DATAFIELD DATE DECIMAL DIM DIVIDE EMPTY ERF ERFC 
EXP FIXED FLOAT FLOOR HBOUND HIGH IMAG INDEX LBOUND LENGTH LINENO LOG LOG2 LOG10 
LOW MAX MIN MOD MULTIPLY NULL OFFSET ONCODE ONCOUNT ONFILE ONKEY ONLOC POINTER 
POLY PRECISION PROD REPEAT ROUND SIGN SIN SIND SINH SQRT SUM TAN TAND TANH TIME 
TRANSLATE TRUNC VERIFY 

pseudo-variables, which you can put in an assignment statement, before or after the 
equal sign: COMPLETION COMPLEX ONCHAR ONSOURCE PRIORITY REAL STATUS STRING SUBSTR 
UNSPEC 

conditions, which you can put in the ON statement: AREA CHECK CONDITION CONVERSION 
ENDFILE ENDPAGE ERROR FINISH FIXEDOVERFLOW KEY NAME OVERFLOW PENDING RECORD SIZE 
STRINGRANGE STRINGSIZE SUBSCRIPTRANGE TRANSMIT UNDEFINEDFILE UNDERFLOW ZERODIVIDE 

condition prefixes, which you can put before statements, such as assignment 
Statements: NOCHECK NOCONVERSION NOFIXEDOVERFLOW NOOVERFLOW NOSIZE NOSTRINGRANGE 
NOSTRINGSIZE NOSUBSCRIPTRANGE NOUNDERFLOW NOZERODIVIDE 

format items, which you can put in the FORMAT statement: A B C COLUMN E F LINE P 
PAGE R SKIP 

attributes, which you can put in the DECLARE statement: ALIGNED AREA AUTOMATIC 
BACKWARDS BASED BINARY BIT BUFFERED BUILTIN CHARACTER COMPLEX CONDITION CONNECTED 
CONTROLLED DECIMAL DEFINED DIRECT ENTRY ENVIRONMENT EVENT EXCLUSIVE EXTERNAL FILE 
FIXED FLOAT GENERIC INITIAL INPUT INTERNAL IRREDUCIBLE KEYED LABEL LIKE OFFSET 
OPTIONS OUTPUT PICTURE POINTER POSITION PRINT REAL RECORD REDUCIBLE RETURNS 
SEQUENTIAL STATIC STREAM TASK TRANSIENT UNALIGNED UNBUFFERED UPDATE VARIABLE VARYING 

environment options, which you can put in the DECLARE statement, in parentheses after 
the word ENVIRONMENT: ADDBUFF BLKSIZE BUFFERS COBOL CONSECUTIVE CTLASA CTL360 F 
FB FBS GENKEY INDEXAREA INDEXED KEYLENGTH KEYLOC LEAVE NCP NOWRITE RECSIZE REGIONAL 
REREAD SCALARVARYING TP TRKOFL U V VB VBS VERIFY VS 

other words PL/I uses: ACTIVATE COPY DATA DEACTIVATE DESCRIPTORS EDIT ELSE FORTRAN 
FROM IGNORE IN INCLUDE INTER INTO KEYFROM KEYTO LINESIZE LIST MAIN NOMAP NOMAPIN 
NOMAPOUT NORESCAN ORDER PAGESIZE RANGE RECURSIVE REENTRANT REFER REORDER REPLY 
RESCAN SET SNAP SUB SYSIN SYSPRINT SYSTEM THEN TITLE TO VALUE WHEN WHILE 
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VERSIONS OF PL/I 


I've been describing PL/I's fanciest versions (the "OS Optimizer" and the "Checkout 
Compiler"). If your computer isn't big enough to handle them, use a stripped-down 
version having fewer commands. 


In 1972, Cornell University invented a pleasant stripped-down version called "PL/C", 
designed especially to help students debug their programs. In 1975, the University of 
Toronto invented an even smaller version called "SP/k"". Although it allows fewer 
statements than PL/C, it runs faster and prints messages that are even more helpful. 
SP/k comes in several sizes: the tiniest is SP/1; the largest is SP/8. 


COMMENTS BY EXPERTS 
Here are comments on PL/I, by the top experts. 


Saul Rosen 
4 "Now (and on into the foreseeable future) most of the world's serious programs 
are written in FORTRAN and COBOL, not PL/I. 

"I deplore the methods by which programming languages are developed. IBM designed 
PL/I as a crash project, to be completed in just a few months by a committee of six 
men, some of whom had other responsibilities at the same time. Considering the few 
people involved, and the little time they could devote to the project, their 
accomplishment was very impressive. 

"Some people in IBM thought PL/I would gradually supplant FORTRAN, COBOL, and 
ALGOL and make those languages obsolete. PL/I contains most features of all those 
languages and provides many useful extras. With IBM's very enthusiastic backing 
after the design phase, it looked as if PL/I was bound to succeed. And it did 
succeed to some extent. PL/I is now used quite widely, and its use is increasing. 
Instead of replacing FORTRAN and COBOL, it seems on the way toward joining them as 
one of the standard production languages. 

"Problems that can be handled well by FORTRAN can still be handled more 
efficiently in FORTRAN than in PL/I. When comparing PL/I to COBOL, some argue that 
COBOL is more natural and suitable for typical business applications. 

"So far, PL/I has been almost exclusively an IBM language. Versions of PL/I 
on machines by other manufacturers are usually incomplete and inefficient. An 
exception is Honeywell, which inherited a rather good version of PL/I when it took 
over the General Electric computer division. 

"The original descriptions of PL/I were informal. A group at the IBM research 
laboratory in Vienna tried to produce a more formal description; the resulting 
document was so thick it was called 'the Vienna telephone directory'." 


Jean Sammet 

"PL/I is the culmination of FORTRAN, ALGOL, and COBOL. It has included virtually 
all the good features from each of those languages. It has synthesized in a very 
reasonable way almost everything known about languages that solve scientific and 
business problems. But its attempt to replace FORTRAN, ALGOL, and COBOL has not 
yet succeeded. 

"When people discuss computer languages, the most frequent arguments are about 
PL/I, ALGOL 68, and APL. The fact that most programming is done in languages other 
than these does not inhibit the debate about them. The public arguments about them 
come more from language developers and theoreticians than from the users, who remain 
rightly concerned about cost and compatibility and hence tend to stay with FORTRAN and 
COBOL." 
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Richard Conway & David Gries 
the inventors of PL/C 

"PL/I, PASCAL, and ALGOL are higher-level languages than FORTRAN. Turning a 
vague problem into a program requires extra effort if the target language is FORTRAN 
rather than PL/I. edt 

"PL/I is, in most respects, less attractive than PASCAL or ALGOL. But it 1s 
also more widely used. In many universities this makes it the only alternative to 
FORTRAN or COBOL that is politically acceptable for an introductory course. PL/I 
is not easy to love; but if FORTRAN andCOBOL are the only alternatives, one can 
learn to live with PL/I. 

"pL/I has some unfortunate characteristics. Its notation is awkward and in 
many places inconsistent. PL/I also has a high astonishment factor—many features 
just don't work the way you would expect. For example, who would guess that 
6EO * 6EO is 3E1?" 


Holt, Wortman, Barnard, and Cordy 
the inventors of SP/k 

"Which language should be taught to beginning students? 

"Although FORTRAN is the standard language for many applications, its clumsy 
features too often distract students from learning orderly methods of program 
construction. 

"COBOL is another widely used language that must eventually be learned by many 
programmers. But its limitations make it a poor introductory language. 

"BASIC is attractive because it is on many minicomputers and has an extremely 
simple notation. A student can learn BASIC more quickly than ALGOL. But he is 
then hampered by BASIC's short variable names when he tries to solve nontrivial 
programming problems. 

"ALGOL 60, ALGOL W, and PASCAL are clean and elegant. But many teachers, students, 
and employers feel the advantages of a more widely accepted language outweigh any 
advantages of additional elegance. 

"PL/I has the advantages that it includes reasonably good programming constructs 
and is widely used—though not as widely as FORTRAN or COBOL. So we chose to make 
our introductory language, SP/k, a subset of PL/I. The disadvantages of PL/I are 
that the full language includes peculiar and anomalous features and is expensive to 
process. These disadvantages can be overcome if PL/I is restricted to a subset 
whose size and elegance resembles ALGOL 60." 


WN) 


PSS 


SIMPLE EXAMPLE 


Suppose you survey 10 of your friends and ask each of them two questions: 

1. In the next election, will you probably vote Republican or Democrat? 

2. Are you male or female? (Maybe you can guess the answer by just looking at the 
person; but to be sure, you'd better ask.) 


Suppose nobody gives an unusual answer (such as Prohibitionist or Communist or 
Transexual or Undecided). You think it would be cool to feed all the data into the 
computer. For example, if a person said "Republican Female", you'd feed the computer 
this line: 

RF 

If a person said "Democrat Male", you'd feed the computer this line: 

DM 
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Use SPSS. Here's the SPSS program: 


VARIABLE LIST PARTY, SEX Read each person's PARTY and SEX, 

INPUT FORMAT FIXED (2A1) using this FORTRAN FORMAT: "2A". 

N OF CASES 10 There are 10 people. 

INPUT MEDIUM CARD The data to read is on the "cards" below. 
PRINT FORMATS PARTY,SEX (A) To print the PARTY and SEX, use "A" format. 
CROSSTABS TABLES=SEX BY PARTY Print a table showing how SEX nekates to PARTY. 
READ INPUT DATA The data to nead is on the following Lines. 
RF oN 

DM 

RM 

RM 

DF ” ” 

DM the "data cards 

DF 

DF 

RM 

DF 

FINISH The program 44 finished. 


In the top line, the word PARTY begins in column 16. Most SPSS statements consist 
of a control fteld (columns 1-15) followed by a specification field (columns 16-80). 


When you run the program, the computer will print this kind of table: 
ROW 


D TOTAL 


M 5 
50.0% 

F 5 
50.04 

COLUMN 10 


TOTAL 40.0% 60.0% 100.0% 


Look at the top number in each box. Those numbers say there were 3 male Republicans, 
2 male Democrats, 1 female Republican, and 4 female Democrats. The first box says: 
the 3 male Republicans were 60% of the males, 75% of the Republicans, and 30% of the 
total population. 


The computer prints the table in reverse-alphabetical order: 'M'' before "F", and 

"R" before '"D". Each row is a SEX, and each column is a PARTY. In the program, if 
you change ''SEX BY PARTY" to "PARTY BY SEX'', each row will be a PARTY, and each column 
will be a SEX. 


FANCY FEATURES 


The CROSSTABS statement has options. Here are some of them. 

option 3: don't print the row percentages (the 60.0%, 40.0%, 20.0%, and 80.0%) 
option 4: don't print the column percentages (the 75.0%, 33.3%, 25.0%, and 66.7%) 
option 5: don't print the total percentages (the 30.07, 20:04, 10.0%, and 40.0%) 


If you want options 3 and 5, insert this statement underneath the CROSSTABS statement: 
OPTIONS Be 
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The CROSSTABS statement has statistics. Here are some of them: 

chi-square, its degrees of freedom, and its level of significance 

phi or Cramer's V 

contingency coefficient 

lambda, symmetric and asymmetric 

uncertainty coefficient, symmetric and asymmetric 

Kendall's tau b and its level of significance 

Kendall's tau c and its level of significance 

gamma 

Somer's D 

Those statistics are numbers that help you analyze the crosstab table. If you want 
statistics 1 and 8, insert this statement underneath the CROSSTABS and OPTIONS 
statements: 

STATISTICS 1,8 

It makes the computer print statistics 1 and 8 underneath the table. If you want 
the computer to print all 9 statistics, say: 

STATISTICS ALL 


WOMOnNAU LF WH 


The CROSSTABS statement is called a procedure. Here is a complete list of procedures 
SPSS can handle: 

AGGREGATE ANOVA BREAKDOWN CANCORR CONDESCRIPTIVE CROSSTABS DISCRIMINAN 

F ACTOR FREQUENCIES GUTTMAN SCALE NONPAR CORR ONEWAY PARTIAL CORR 


EARSON CORR REGRESSION SCATTERGRAM T-TEST WRITE CASES 
Each procedure has its own OPTIONS and STATISTICS. 


SPSS includes many other kinds of statements: 

ADD CASES ADD DATA LIST ADD SUBFILES ADD VARIABLES ALLOCATE ASSIGN MISSING 
COMMENT COMPUTE COUNT DATA LIST DELETE SUBFILES DELETE VARS DO REPEAT 
DOCUMENT EDIT END REPEAT FILE NAME GET ARCHIVE GET FILE IF KEEP VARS 
LIST ARCHINFO LIST CASES LIST FILEINFO MERGE FILES MISSING VALUES NUMBERED 
PAGESIZE PRINT BACK RAW OUTPUT UNIT READ MATRIX RECODE REORDER VARS 

RUN NAME RUN SUBFILES SAMPLE SAVE ARCHIVE SAVE FILE SELECT IF SORT CASES 
SUBFILE LIST TASK NAME VALUE LABELS WEIGHT WRITE FILEINFO 


SPSS contains more statistical features than any other language. If you don't need 
quite so many features, use an easier language, such as STATPAK, DATATEXT, or IMPRESS. 
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lodern languages 


LOGO 
LOGO began one evening at Dan Bobrow's home in Belmont, Massachusetts. The year 
was 1966— or was it 1967?— nobody quite remembers. 

Dan had gotten his Ph.D. from MIT and was working for a company called Bolt, 
Beranek, and Newman (BBN). In Dan's living room were three of his colleagues from 
BBN (Wally Feurzeig, Cynthia Solomon, and Dick Grant) and an MIT professor: 
Seymour Papert. 

BBN had bee trying to teach young kids how to program by using BBN's own 
language (TELCOMP), which was a variation of JOSS. BBN had asked 
Professor Seymour Papert for his opinion. The group was all gathered in Dan's house 
to hear Seymour's opinion. 

Seymour chatted with the group, and the entire group agreed with Seymour on 
several points. First, TELCOMP was not a great language for kids. It placed too much 
emphasis on mathematical formulas. The group agreed that instead of struggling with 
math, the kids ought to be having more fun by programming the computer to handle 
strings instead. 

The group also agreed that the most sophisticated language for handling strings 
was LISP. BUt the group also agreed that LISP was too complex for kids. 

The group concluded that a new, simplified version of LISP ought to be invented, 
especially for kids. The group called the new, simplified version "LOGO". That's how 
LOGO began. Professor Seymour Papert was the guiding light, and all the other members 
of the group gave helpful input during the conversation. 

That night, after the guests had left, Dan Bobrow went to the terminal in his 
bedroom, and started programming the computer to understand LOGO. Specifically, 
he wrote a LISP program that explained to the computer how to handle LOGO. And 
that's how LOGO was born. 

Work on LOGO continued. The three main researchers who continued improving LOGO 
were Seymour (the MIT guru), Wally (from BBN), and Cynthia (also from BBN). 
LOGO looked something like "LISP without parentheses". 

After helping BBN for a year, Seymour returned to MIT. Cynthia and several other 
BBN folks went with him. In MIT's Artificial Intelligence Laboratory, Seymour and his 
friends continued to improve LOGO. 

During the first few years, LOGO was like most other computer languages: it was 
abstract and boring. But in the spring of 1970, a surprising creature walked into the 
LOGO lab. It was a big yellow mechanical turtle. It looked like "half a grapefruit on 
wheels". And it had a pen in its belly: 


wheel pe heel 
It also had a horn, feelers, and several other fancy attachments. To use the turtle, 
you put paper all over the floor and then programmed the turtle to roll across the paper. 
As the turtle rolled, the pen in its belly drew pictures on the paper. The turtle was 
controlled remotely by a big computer, which was programmed in...LOGO! 

Suddenly, LOGO had become fun. LOGO had become a language whose main purpose 
was to control the turtle. Kids who watched the turtle screamed with delight and wanted 
to learn how to program it, by using LOGO. So LOGO had suddenly become a favorite 
programming game for kids. Even teeny-weeny kids, who were just 7 years old, 
started programming in LOGO. Those kids were barely old enough to read. But reading 
and writing were not prerequisites for learning how to program in LOGO. All you had 
to know was that "FD 3" made the turtle go forward 3 steps, and "RT 30" made the turtle 
turn to the right 30 degrees. 
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As for the rest of LOGO— all that abstract stuff about strings and numbers and 
LISP-like lists— the kids ignored it. They wanted to use just the commands "FD" 
and "RT" that moved the turtle. 

The U.S. Government's National Science Foundation donated money to MIT, so that 
MIT could continue improving LOGO further. Many kids came into the LOGO lab to 
play with the turtles. 

But the turtles were expensive, and so were the big computers that controlled them. 
If all the kids in the United States were to get a chance to play with LOGO, the first 
problem was to reduce the cost of the turtle and its controlling computer. 

During the early 1970's, the cost of video display terminals decreased dramatically. 
Eventually, MIT decided that instead of building a mechanical turtle, it was cheaper 
to buy a video display terminal whose screen could display a picture of a turtle. So 
MIT stopped using mechanical turtles, and started using graphics terminals instead. 

During the 1970's, computers became cheaper too. The original version of LOGO 
was done on BBN's expensive weird computer (the MTS 940). Later versions were done 
on the PDP-1 (in 1968), then the PDP-10 (in 1970), and finally on a cheaper computer: 
the PDP-11 minicomputer (in 1972). 

At the end of the 1970's, microcomputers were invented, such as the Apple and the 
Radio Shack. MIT wanted to put LOGO on those popular microcomputers. But MIT was 
running out of money. Who would pay for the research to put LOGO on a microcomputer? 

Texas Instruments (TI) came to the rescue. TI agreed to pay MIT for the research 
to put LOGO on TI's microcomputers (the TI-99/4 and the TI-99/4A). 

TI and MIT thought the job would be easy, since MIT had already written a PASCAL 
program that made the computer understand LOGO, and since TI had already written a 
version of PASCAL for the CPU chip inside the TI-99/4. Initially, MIT was worried, 
because the PASCAL program running on MIT's PDP-10 computer handled LOGO too 
slowly; but TI claimed TI's PASCAL was faster than the PDP-10's and that LOGO would 
therefore run fast enough on the TI. 

TI was wrong. TI's PASCAL couldn't make LOGO run fast enough; and TI's PASCAL 
also required too much RAM. So TI had to laboriously take MIT's research (on the 
PDP-10) and laboriously translate it into TI's assembly language, by hand. 

The hand translation went slower than TI expected. TI became impatient, and wanted 
to start selling LOGO soon. So TI took a short-cut: it omitted parts of LOGO. The main 
part of LOGO that TI omitted was decimals: TI's LOGO understands just integers. 

After TI started selling "TI LOGO", the MIT group invented a version of LOGO for 
the Apple. The Apple version includes decimals (unlike the TI version). But on the 
other hand, the Apple version omits "sprites" (which are animated creatures that carry 
objects across the screen), because Apple's hardware can't handle sprites quickly 
enough. (The TI's hardware is fancier and does handle sprites.) 

MIT wanted to sell the Apple version to schools, since most schools own Apples instead 
of TI computers. But if MIT were to start selling a disk containing "MIT LOGO for the 
Apple" and make lots of money, MIT might have sunk into legal trouble, since MIT was 
Supposed to be non-profit. And anyway, who "owned" LOGO? Possible contenders were: 


MIT, which had done most of the research 

BBN, which had already trademarked the name "LOGO" and had done the early research 
the U.S. Goverment, whose National Science Foundation had paid for much research 

TI, which had also paid for much research 


Eventually, MIT solved the legal problems, and sold the rights to "MIT Apple LOGO". 
parang was Terrapin, a company that had already been manufacturing mechanical 

urtles. 

Terrapin hired some MIT graduates, to help Terrapin improve MIT Apple LOGO. 
Today, you can buy the improved MIT Apple LOGO from Terrapin for $150. Contact 
Terrapin at 678 Massachusetts Ave., Cambridge, MA 02139, 617-492-8816. Quantity 
discounts are available to dealers and schools. To use Terrapin's LOGO, you need an 
Apple that has a disk drive and 64K of RAM. (To get 64K of RAM, buy a 48K Apple 
and add a 16K RAM card.) 

Another company, called "Krell", also obtained the rights to MIT Apple LOGO. 


The Krell version of MIT Apple LOGO costs $180 (which is more than Terrapin) and 
contains fewer improvements. 
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Back when MIT was consulting its lawyers about who owned Apple LOGO, a group 
of MIT's faculty and students became impatient. The group, headed by Cynthia Solomon 
(one of the original inventors of LOGO), left MIT and formed a company called 
LOGO Computer Systems Incorporated (LCSI). That company invented its own version 
of LOGO for the Apple. Like the MIT-Terrapin-Krell versions, it requires a disk 
drive and 46K of RAM; but it's newer and costs $175. Apple Computer Company 
is distributing the LCSI version to all Apple dealers. 

The TI and MIT-Terrapin-Krell versions were all derived from the version that 
MIT wrote in PASCAL on the PDP-10. The LCSI version was derived from the version 
that LCSI wrote in LISP on a special "LISP minicomputer". 

Which is better: Terrapin or LCSI? There's no simple answer. Each version contains 
features that the other version lacks. If you ask one of those companies about a feature 
that only the opposite company has, whichever company you're asking will say defensively, 
"We're working on that feature too, and we'll have it soon" or "That feature isn't 
important, and just wastes space in the 64K RAM". 

At the moment, LCSI is better at handling disks (especially random-access data files), 
while Terrapin is better at handling RAM (especially lists stored in the RAM). LCSI is 
slightly better at handling graphics (especially when the turtle tries to go off the edge 
of the screen), whereas Terrapin is slightly better at handling music (since Terrapin 
includes a demonstration music program). Each company claims that its LOGO works 
"faster" than the other company's. (One of them must be lying.) Each company claims 
that its version of the the IF...THEN...ELSE statement is easier to understand than 
the other company's. (Try them both, and see which version of IF...THEN...ELSE you 
think is the easiest!) Terrapin's editor (which helps you edit your program) is a bit 
easier to learn than LCSI's; on the other hand, LCSI lets beginners avo/d the editor 
more easily. 

Both companies agree that the best book on LOGO is the one written by 
Prof. Harold Abelson at MIT. (His friends call him "Hal".) His book comes in two 
versions: the general version is called simply "LOGO"; an alternate version, called 
"Apple LOGO", emphasizes the LCSI version. Each version costs $15 and is published 
by Byte Books, which is a subsidiary of McGraw-Hill. 

Terrapin is a tiny company that operates out of two rooms. LCSI is somewhat larger: 
it has about eight rooms in Boston, plus headquarters in Canada. 

Apple Computer Company will be LCSI's only distributor for one year. After that 
year is up, you can buy directly from LCSI. 

Both Terrapin and LCSI hope to put LOGO onto the IBM Personal Computer. 

Many of LOGO's designers hate BASIC, and believe that BASIC should be eliminated 
from schools altogether. They believe that LOGO is easier to learn than BASIC, and that 
LOGO encourages a kid to be more creative. They also believe that LOGO leads the kid 
to think in a more organized fashion than BASIC. They also argue that since LOGO is 
best for little kids, and since switching languages is difficult, the kids should continue 
using LOGO until they graduate from high school and should never use BASIC. That 
argument is wrong: it ignores the fact that a knowledge of BASIC is essential to 
surviving in our computerized society. Today, most programs are still written in BASIC, 
not LOGO, because BASIC consumes less RAM and because the newest versions of 
BASIC contain many practical features for business and science and graphics that LOGO 
lacks. 

One of the nicest things about LOGO is that you can change it, and turn it into your 
own language! That's because LOGO lets you invent your own commands and add them 
to the LOGO language. A language (such as LOGO) that lets you invent your own 
commands is called an extensible language. Although some of the classical languages 
(such as LISP) are extensible also, LOGO is more extensible and also pleasanter. 
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FORTH 
Like LOGO, FORTH is extensible. And FORTH has two big advantages over LOGO: 
FORTH consumes less memory and runs faster. You can easily run FORTH on a 
machine that has only 8K of RAM, and the computer handles FORTH almost as fast 
as it handles assembly language. Because FORTH is extensible and consumes so 
little of the computer's memory and time, professional programmers often use it. For 
example, EASYWRITER (which is a word-processing program for the Apple and the 
IBM Personal Computer) was written in FORTH. (Unfortunately, EASYWRITER contains 
several bugs, but that's because EASYWRITER's programmers weren't very bright.) 

In FORTH, if you want to add 2 and 3 (to get 5), you do not type 2+3. Instead, 
you must type 2 3 +. The idea of putting the plus sign afterwards (instead of in the 
middle) is called postfix notation. The postfix notation (2 3+) has two advantages 
over infix notation (2+3): the computer can handle postfix notation more quickly, 
and you never need to use parentheses for "order of operations". On the other hand, 
postfix notation seems inhuman: it's hard for a human to read. Because it's hard for 
humans, FORTH is not a good language for little children. On the other hand, if you're 
a professional programmer who wants to make your programs run super-quickly and 
eat up hardly any RAM, use FORTH. 

Like FORTH, Hewlett-Packard pocket calculators use postfix notation. So if you've 
already had experience with a Hewlett-Packard calculator, you'll find FORTH easy. 

Postfix notation is the reverse of prefix notation (+ 2 3), which was invented around 
1926 by the Polish mathematician Lukasiewicz. So postfix notation is often called 
reverse Polish notation. 

Because FORTH is so difficult for a human to read, cynics call it "an inhuman Polish 
joke". 

FORTH was invented by Calvin Moore, during his spare time while he worked at many 
schools and companies. He wanted to name it "FOURTH", because he considered it to be 
an ultra-modern "fourth-generation" language; but he was using an old IBM 1130 
minicomputer, which couldn't handle a name as long as "FOURTH"; so he omitted the 
letter "U". 

The best book on FORTH is Leo Brodie's Starting FORTH, published by Prentice-Hall. 
It contains 360 pages and costs $15.95 (paperback) or $19.95 (hardcover). To get it, 
send payment (plus $2 shipping) to Miller Microcomputer Services (61 Lake Shore Rd., 
Natick, MA 01760, phone 617-653-6136). Miller Microcomputer Services also sells its 
own excellent version of FORTH for the Radio Shack model 1 and model 3, and is 
developing an even fancier version for the IBM Personal Computer. The Radio Shack 
version costs $130 for the basics, plus $40 for the popular options; the IBM version 
costs $250; contact Miller for details. 
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PILOT 

PILOT was invented at the San Francisco branch of the University of California, by 
John Starkweather in 1968. It's easier to learn than BASIC; but it's supposed to be 
used by teachers instead of students. By using PILOT, teachers can easily program 
the computer to tutor students about history, geography, math, French, and other 
schoolbook subjects. 

For example, suppose you're a teacher and want to make the computer chat with 
your students. Here's how to do it in BASIC, and more easily in PILOT: 
BASIC program 
10 PRINT "I AM A COMPUTER" 
20 INPUT "DO YOU LIKE COMPUTERS"; AS 
30 IF AS="YES" OR AS="'YEAH" OR AS="YEP" OR AS="'SURE" OR AS="'SURELY" OR AS="I SURE DO" 

THEN PRINT "I LIKE YOU TOO" ELSE PRINT ''TOUGH LUCK" 


PILOT program 


T:I AM A COMPUTER Type "I AM A COMPUTER". 

T:DO YOU LIKE COMPUTERS? Type "DO YOU LIKE COMPUTERS?" 

A: Accept the human's answer. 

M:YE,SURE Match. (See whether the answer contains "YE" on” "SURE". ) 
TY:I LIKE YOU TOO 14 there was a match, type "I LIKE YOU TOO". 

TN: TOUGH LUCK 1% no match, type "TOUGH LUCK". 


Notice that the PILOT program is briefer than BASIC. 

Atari, Apple, and Radio Shack all sell versions of PILOT that include commands to 
handle graphics. Atari's version is better than Apple's and Radio Shack's, because 
Atari's includes the fanciest graphics and music and even a LOGO-like turtle, and 
because it's also the easest version to learn how to use. 

Unfortunately, few teachers use PILOT. Although PILOT is easier than BASIC, 
most teachers prefer to learn BASIC, because BASIC is available on more computers 
and costs less and accomplishes a greater variety of tasks. The teachers don't want 
to spend their time and money to learn a second language: they stick with just BASIC. 
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PASCAL 
In 1968, a European committee tried to invent an improved version of ALGOL. Most of 
the committee's members agreed with each other and produced a version called 
"ALGOL 68". But a few of the committee's members were dissidents who thought the 
rest of the committee was crazy. One of the dissidents was Niklaus Wirth. He quit the 
committee and created his own version of ALGOL. He called his version "PASCAL". 
Today, most programmers feel that Niklaus Wirth was right and the rest of the committee 
was wrong: PASCAL is better than ALGOL 68. 

Niklaus Wirth wrote PASCAL in Switzerland, for a CDC maxicomputer that used cards. 
His version of PASCAL couldn't handle terminals; it couldn't handle random-access data 
files; and it couldn't handle strings well. Those three limitations were corrected in 
later versions of PASCAL— especially the version invented at the University of 
California at San Diego (UCSD), which even includes LOGO-style commands that move 
a turtle. 

Apple Computer Company obtained permission to sell an Apple version of UCSD 
PASCAL. Apple ran full-page advertisements, bragging that the Apple computer could 
handle PASCAL and that other microcomputers could not. 

For $495, Apple Computer Company would sell you the "Apple Language System", 
which included 4 disks containing PASCAL, 2 disks containing souped-up BASIC, and 
a card containing 16K of extra RAM. Many people spent the $495 for PASCAL. 

Those people were disappointed. They expected that by spending $495, they'd be 
able to write programs more easily. But PASCAL is no easier than BASIC. In fact, 
PASCAL is more difficult to learn than BASIC. 

PASCAL is helpful only if the program you're writing is very, very long. PASCAL 
helps you organize and dissect long programs more easily than BASIC. But the average 
Apple owner never writes long programs, and therefore never needs PASCAL. 

Many customers felt "ripped off": they had spent $495 and received no benefit in 
return. But maybe that's what "marketing" is all about. 

Many programmers who've been writing large FORTRAN programs for large computers 
are switching to PASCAL, because PASCAL helps you organize large programs better, 
and because FORTRAN is archaic. Many programmers who've been using PL/I are 
switching to PASCAL, because PASCAL consumes less RAM than PL/I and can therefore 
fit in smaller computers. 


Cc 
Many programmers are starting to use a new language called "C". It was invented at 
Bell Telephone Laboratories by Dennis Ritchie. It's a slight improvement over an earlier 
language, which was called "B". 

By using C, programmers made the PDP-11 act in a nice, strange way. That way is 
called UNIX. It's an operating system, written in C. Today, the C language and the 
UNIX operating system are available on many minicomputers and microcomputers. At 
Seeaee a Cold headquarters, the staff is writing programs for Radio Shack's computers 

y using C. 

The best book about C is the one written by Kernighan and Ritchie, and called 
The C Programming Language. It's published by Prentice-Hall. 

C is popular because it looks like most other structured languages (ALGOL, PASCAL, 
and PL/I) yet consumes hardly any RAM; and the computer handles it extremely quickly. 


VISICALC 
VISICALC is one of the most important computer languages ever invented. For full 
details, read page vi and pages 68-69 of volume 5 of The Secret Guide to Computers. 
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ADA 
In 1975, the U.S. Department of Defense decided to invent a new computer language. 
But before inventing a new language, the Department had to decide what kind of 
language it wanted. So the Department wrote a list of requirements the language would 
have to meet. 

That list of requirements was improved several times. The first version of the list 
was called the Strawman Requirements (1975); then came improved versions, called 
Woodenman (1975), Tinman (1976), Ironman (1978), and finally Steelman (1979). 

While the Department was moving from Strawman to Steelman, it also checked whether 
any existing computer language could meet such requirements. The Department concluded 
that no existing computer language came even close to meeting the requirements, and 
so a new language would indeed have to be invented. The Department also concluded 
_ that the new language would have to resemble PASCAL, ALGOL 68, or PL/I, but be 
better. 

The Department decided to hold a contest, to see who could invent the new language. 
16 companies entered the contest: they invented 16 languages that they hoped would 
meet the Steelman Requirements. The Department selected 4 semifinalists, and told them 
to continue their research and try harder. 

The semifinalist companies were ClII-Honeywell-Bull (which is French and owned 
partly by Honeywell), Intermetrics (in Cambridge, Massachusetts), SRI International, 
and Softech. 

Several months later, those 4 semifinalists submitted improved designs. All the 
improved designs were souped-up versions of PASCAL (instead of ALGOL 68 or PL/I). 
To make the contest fair and prevent bribery, the judges weren't told which design 
belonged to which company; the 4 were called "Green", "Red", "Yellow", and "Blue". 

Yellow and Blue lost. Green and Red became the finalists. The Department told 
Green's inventor (which was CII-Honeywell-Bull) and Red's inventor (Intermetrics) 
to continue their research and try even harder. 

In 1979, ClII-Honeywell-Bull (Green) and Intermetrics (Red) submitted their improved 
versions. Green won. The Department decided that the Green language would be called 
"ADA", to honor Ada Lovelace, the woman who was the world's first programmer. (For 
the crazy story of Ada Lovelace's life, read pages 56-57 of volume 4.) 

So ADA is a PASCAL-like language developed by a French company under contract 
to the U.S. Department of Defense. 

Will ADA become popular? Wait and see. Many researchers are trying to make computers 
understand ADA. After computers understand ADA and programmers try to learn that 
new language, we'll know whether that language is a pleasure or a pain. 

The best book on ADA is Peter Wegner's Programming with ADA, published by 
Prentice-Hall. 


DBASE 2 
DBASE 2 is a language that lets you easily handle data files on your disk. It organizes 
the data by using a very flexible and wonderful method, called a "relational data base". 
It's an improvement ofan earlier language, called VULCAN. 

It lists for $700, but most discount dealers sell it for $595. It works on any 
microcomputer that has the CP/M operating system. 

The best book about it is The DBASE II User's Guide with Applications, who's one 
of my former students. Get it from his company, Softwarebanc (46 Bianca Rd., 
Duxbury, MA 02332, phone 617-585-4655). The book costs $29; but you'll get it free 
if you buy DBASE from Softwarebanc at $595. 


EASY 
EASY is a language I've been developing. I explained it earlier. 
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How the CPE thinks 


PREPARE YOURSELF 
To understand the technical material that follows, you should reread pages 32-37 
of volume 4. Those pages explain number systems (binary, octal, and hexadecimal) 
and character codes (ASCII and EBCDIC). 
If you're lazy and don't reread those pages, you'll get lost. So reread those 
pages now! 


WORDS 
The computer's memory is divided into chunks that are called words. On a PDP-10 
computer, each word consists of 36 bits. Other computers have words that are longer 
or shorter: 


COMPUTER WORD LENGTH 

CDC (6000, 7000, Cyber 70, and Cyber 170) 60 bits 

PDP-10, PDP-20, and Honeywell 6000 36 bits |naxiconputen 
IBM (360 and 370) S2a0its 

NOVEE Eclipse, and PDP-11 1 pe} minicomputers 
8080, 6800, 6502, Z-80, and F-8 8 bits} microcomputers 


I'll begin by explaining the PDP-10; afterwards, I'll explain the others.... 


A FORTRAN integer is stored as one word. If you want to store 
the integer 74, which is 1001010 in binary, it will be stored like this: 
000000000000000000000000000001001010 

Every positive integer must begin with a zero, so the largest binary integer that 
can be stored is— 
OLLI TIT V Ta 
—which in decimal notation is 34359738367. So in FORTRAN, if you try to write an 
integer larger than 34359738367, the computer will gripe and say OVERFLOW. 
To store a negative integer, the computer does three steps: 

Store its absolute value. 

Find the rightmost 1. 

Left of the rightmost 1, replace each 0 by 1, and each 1 by 0. 


Store 74, which is 
000000000000000000000000000001001010 
Find the rightmost 1. 
0000000000000000000000000000010010}0 


Left of the rightmost 1, replace each 0 by 1, and each 1 by 0. 
PPATLVT ULI ee 11.01 10120 
That word represents -74. 

For a positive number, the word's leftmost bit is 0; but for a negative number, 
the leftmost bit is 1. Since the leftmost bit indicates the number's sign, it is 
called the stgn bit. 

If you ask the computer to add 77 to -74, here's what it does: 

It stores 77 as 000000000000000000000000000001001101 
It stores ~74 as) 111111311111111191111111111110110110 
The binary sum is soa I a 


because 1+1=10 
But this extra bit can't fit in a 36-bit word, 
sO it is ignored. The word contains only 
090000000000000000000000000000000011, which is 3. 
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Write it in binary, showing the decimal point. 

Move the decimal point until it is immediately left of the leftmost 1. The new 
number is called the manttssa. Let E be how many places you moved the decimal 
point; if you moved the decimal point toward the left, E is positive; if you 


moved the decimal point toward the right, E is negative. (E is called the 
exponent.) 
Write a 0, followed by eight bits for E+128, followed by twenty-seven bits for 
the mantissa. 

For example, to store the real number 1.625, the computer does these steps.... 
Write’ 1:625"in,| binary: 
1.101 
Move the decimal point, to get the mantissa: 
.1101 
Since the decimal point was moved 1 place, E is 1. 
Write a 0, followed by eight bits for E+128 (which is 129), followed by 
twenty-seven bits for the mantissa: 


010000001110100000000000000000000000, 
129 Os 


In step 2, if the computer moves the decimal point incorrectly, the number is 
called unnormalized. For example, if the computer moves the decimal point two places 
instead of one, the mantissa will be .01101 (instead of .1101), E will be 2 (instead 


of 1), and the number will be unnormalized: 010000010011010000000000000000000009. 
130 01101 


Since the computer can do arithmetic even on numbers that are unnormalized, sometimes 
it doesn't bother to normalize the numbers. 
To store the real number 5.0 (normalized), the computer must do these steps.... 
Wricero.Gsinebinary: 
101.0 
2. Move the decimal point, to get the mantissa: 
-1010 
Since the decimal point was moved 3 places, E is 3. 
3. Write a 0, followed by eight bits for E+128 (which is 131), followed by 
twenty-seven bits for the mantissa: 


0,0000011101000000000000000000000000, 
131 1010 


By contrast, the integer 5 (which is binary 101) is stored simply as: 
000000000000000000000000000000000101 
Since the method for storing 5 is simpler than for 5.0, the computer will perform 
5+3 more quickly than 5.0+3.0. So to make your FORTRAN program run quickly, use 
integer arithmetic instead of real arithmetic, whenever possible. 

In BASIC, unfortunately, all numbers are treated as if they were reals; 5 and 5.0 
are both stored as: 
010000011101000000000000000000000000 
So BASIC "integer arithmetic" is actually real arithmetic, and hence slower than in 
FORTRAN. 

The largest real number the computer can store is— 


OU1L11119 4111111111111 1 1111111111114, 
E+128 


mantissa 
—which is about 1.7x10°8. 
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The computer negates a real number the same way it negates and integer. To store 
-5.0, the computer does these steps.... 
Store 5.0, which is 
010000011101000000000000000000000000 
2. Find the rightmost 1: 

01000001110}000000000000000000000000 


3. Left of the rightmost 1, replace each 0 by 1, and each 1 by 0: 
101111100011000000000000000000000000 
To store a double-precision number, the computer figures out the mantissa more 

precisely than for a real. The double-precision number is stored as two words: 
the first word contains the sign bit, the exponent (+128), and the beginning of the 
mantissa; the second word is devoted mainly to the rest of the mantissa. 


CDC (6000, 7000, Cyber 70, and Cyber 170 Since a word holds 60 bits instead of 36, 


CDC computers can handle larger integers and larger reals, and store more places 
after the decimal point than PDP-10 computers. The disadvantage of CDC computers 
is that they require more memory, since every number consumes 60 bits. 

To negate a number, CDC computers replace every 0 by 1, and every 1 by 0. Even 
the bits on the right end of the word get replaced. The CDC scheme has several 
disadvantages; for example, it makes zero be 
000000000000000000000000000000000000000000000000000000000000 
but makes "negative zero" be different: 
ppt Bs a Wt a i et a Bt st DA gah La 
To make negative zero differ from zero contradicts the laws of math. To do math 
correctly, CDC computers have to ''fudge". 

To store a positive real number, CDC computers write a 0, followed by eleven bits 
for E+976, followed by forty-eight bits for the mantissa. 


A word holds 32 bits. An IBM integer resembles a PDP-10 integer 
but is 4 bits shorter. 
To store a real, the computer uses hexadecimal. For example, to store 45.625, 

the computer does these steps.... 
Write 45.625 in binary: 
101101.101 
Then write it in hexadecimal: 

101101.101 


ai ae eo 


Put the decimal point left of the first non-zero digit, to get the mantissa: 


-2DA 


Since the decimal point was moved 2 places, E is 2. 
Write a 0, followed by seven bits for E+64 (which is 66), followed by twenty-four 
bits for the manissa: 


0100001000101101 010000000000000 


66 2 Deh 


PDP-11{ A word holds 16 bits. To store a FORTRAN integer, the computer uses either 
one or two words, depending on the version of FORTRAN. To store a positive real, 

the computer writes a 0, followed by eight bits for E+128, followed by twenty-three 
bits for the ''shortened mantissa"'. To form the shortened mantissa, omit the mantissa's 
leftmost bit (which is 1). For example, if the mantissa is .1101, the shortened 
mantissa is .101. 


Other minicomputers and microcomputers} Minicomputers and microcomputers have short 
words, because these computers were originally intended to handle only short integers. 
To store a longer integer or a real requires more than one word. 
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CHARACTER CODES 
To store a character, the computer uses a 6-bit code, or 7-bit ASCII, or 8-bit ASCII, 
or 8-bit EBCDIC. Here are some calculations: 


COMPUTER WORD LENGTH CHARACTER LENGTH CONCLUSION (word length divided by char.) 
CDC 60 bits 6 bits A word can hold 10 characters. 
PDP-10 36 bits 7 bits A word can hold 5 characters. (The 


word's rightmost bit isn't used: 
it remains 0.) 


IBM 360 § 370 32 bits 8 bits A word can hold 4 characters. 

PDP-11 16 bits 8 bits A word can hold 2 characters. 

PDP-8 12 bits 6 bits A word can hold 2 characters. 

microcomputers 8 bits 8 bits A word can hold 1 character. 
BCD 


To handle numbers in COBOL programs, IBM 360 and 370 computers use this 4-bit code, 
called Binary-Coded Decimal (BCD): 
CHARACTER BCD CODE BCD CODE 

IN HEXADECIMAL 
0000 
0001 
0010 
0011 
0100 
0101 
0110 
0111 
1000 
1001 
1100 
1101 


+ WOONAURWNHeEO 
OSOQAWOWAWONAAMNHRWNF OC 


Oh ty 2 


§ = 
For example, the BCD code for the COBOL integer -928 is 1001001 0001100. The BCD 
2 ] bale eats et 


(a7 Coot ORAPATAGi nn 
code for the COBOL integer +21503 is 001000010101000000111100. Although BCD was 
designed for COBOL, some microcomputers use it for BASIC. 

Warning: if you read an old textbook that mentions ''BCD", it might mean a 6-bit 
code for magnetic tapes, instead of the 4-bit code I've described. 
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KINDS OF LANGUAGES 
The CPU doesn't understand BASIC, FORTRAN, PASCAL, or COBOL. The only language it 
understands is machine Language, which is very primitive. A machine language program 
is just a list of zeros and ones, like this: 
00010000100010001010100010111110110100010101110101110101100101100110001011101011101 etc. 
In machine language, all numbers must be written in binary (not decimal); exponents, 
square roots, logarithms, and trigonometry are not allowed; keywords (such as IF 
and GO TO) must be written in a special binary code instead of in normal letters; 
and a variable's name must consist of just zeros and ones. On small computers, the 
machine language is very primitive: multiplication and division are not allowed; 
real numbers are nut allowed (you must use only integers); what you print or input 
must be a string (not a number), and the string must be very short: it must have 
only one character! And instead of writing the character itself, you must write its 
ASCII or EBCDIC code. Writing a program in machine language is a pain in the ass. 

On the main frame of a maxicomputer (or minicomputer or not-so-small microcomputer) , 
you'll see a row of switches. By putting your fingers on the switches and flipping 
them up and down, you can feed bits into the computer. On most computers, a switch 
that's up represents a 1; a switch that's down represents a 0. The usual way to 
feed a machine-language program into the computer is to flip the switches. Since 
flipping a switch is called toggling, feeding a machine-language program into the 
computer by flipping switches is called toggling the program in. 

To make the computer easier to program, the first step is to teach it assembly 
language, which resembles machine language but is slightly easier for a human to 
cope with, because: 

-You can type an assembly-language program on a keyboard, instead of by toggling switches. 
“You can type the program in octal or hexadecimal instead of in binary. 
*-You can use variables, and give them names such as X, and Y and PRICE. 
*-You can type commands such as ADD and AND, instead of having to type their binary codes. 

To teach the computer assembly language, store an explanation of assembly language 
on a disk (or in another part of the memory). The "explanation" is a program that 
makes the computer act as if it understands assembly language. The explanation-program 
is called the assembler and is written in the only language the computer understands 
already: machine language. 

The next step is to teach it languages such as BASIC, FORTRAN, and COBOL, by storing 
more explanation-programs (called compilers or tnterpreters), written in assembly 
language. BASIC, FORTRAN, and COBOL are called high-level languages. Machine language 
and assembly language are Zow-level languages. 


ELECTRONIC BOXES 
From the CPU's point of view, the entire main frame is thousands of "electronic boxes"'. 
Each box holds several bits. Some of the boxes are long, and hold many bits. Other 
boxes are short, and hold few. Most of the boxes are in the main memory, and are 


called memory locations. A few of the boxes are in the CPU itself wandtarescaived 
registers. 


The CPU can move data from one box to another. Specifically, the CPU can do the 
following: 
Move data from a memory location to a register. (That's called loading the data.) 
Move data from a register to a memory location. (That's called storing the data.) 
Move data from a register to another register. 
The CPU cannot move data from one memory location to another memory location directly. 
Instead, if you want to move data from one memory location to another, you must tell 
the CPU to move the data from the first memory location to a register, and then 
move the data from that register to the desired memory location. 
The registers work more quickly than the memory locations. For example, moving 
data from a register to another register is faster than moving it to a memory location. 
The place the data is moved from is called the source. The place the data is 
moved to is called the destination. The source is a register or memory location, 
and so is the destination. 
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When data is "moved", it is merely copied. For example, when the CPU has "moved" 
data from a register to a memory location, the data is in both places: it is still 
in the register, and a copy of it is now in the memory location. 

The memory locations are numbered in order: 0, 1, 2, 3, etc. So we speak of the 
noth memory location, the '1St" memory location, the "and" memory location, etc. 

A memory location's number is called the address. For example, the address of the 
and memory location is: 2. The data the memory location contains is the content. 

Pretend the main memory is a town, and the "electronic boxes'' (memory locations) are 
the houses. Each house has an address. It also has content: the people inside it. 


’ PROGRAM COUNTER 

The CPU contains a special register, called the program counter. The program counter 

tells the CPU which line of your program to do next. For example, if the program 

counter contains the number 6 (written in binary), the CPU will do the line of 
your program that's stored in the 6th memory location. 

More precisely, here's what happens if the program counter contains the number 6: 
The CPU moves the content of the 6*. memory location to the CPU's instruction 
register. (That's called fetching the instruction.) 

B. The CPU checks whether the instruction register contains a complete instruction 
written in machine language. If not—if the instruction register contains only 
part of a machine-language instruction—the CPU fetches the content of the 7th 
memory location also. (The instruction register is large enough to hold the 
content of memory locations 6 and 7 simultaneously.) If the instruction 
register still doesn't contain a complete instruction, the CPU fetches the 
content of the 8th memory location also. If the instruction register still 
doesn't contain a complete instruction, the CPU fetches the content of the gth 
memory location also. 

C. The CPU changes the number in the program counter. For example, if the CPU 
has fetched from the 6th and 7th memory locations, it makes the number in the 
program counter be 8; if the CPU has fetched from the 6th, 7th, and sth memory 
locations, it makes the number in the program counter be 9. (That's called 
updating the program counter.) 
D. The CPU figures out what the instruction means. (That's called decoding the 
instruction.) 
E. The CPU obeys the instruction. (That's called executing the instruction.) If it's 
a "GO TO" type of instruction, the CPU makes the program counter contain the 
address of the memory location you want to go to. 
After the CPU completes steps A, B, C, D, and E, it looks at the program counter and 
moves on to the next instruction. For example, if the program counter contains the 
number 9 now, the CPU does steps A, B, C, D, and E again, but by fetching, decoding, 
and executing the 9th memory location istead of the 6th, 
The CPU repeats steps A, B, C, D, and E again and again; each time, the number in 
the program counter changes. Those five steps form a loop, called the tnstructton 
cycle. 7 
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ARITHMETIC /LOGIC UNIT 
The CPU contains two parts: the control untt (which is the boss) and the 
arithmette/logie unit (ALU). When the control unit comes to step D of the instruction 
cycle, and decides some arithmetic or logic needs to be done, it sends the problem to 
the ALU, which sends back the answer. 
Here's what the ALU can do: 
NAME OF OPERATION EXAMPLE EXPLANATION 
‘olus’eaadded. tolsaus" 10001010 add, but remember that 1+1 is 10 in binary 
+10001001 
answer: 100010011 
Minus.) SUDLLactie —— 10001010 subtract, but remember that 10-1 is 1 in 
-10001001 # binary 
answer: 00000001 
"negative", "the two's -10001010 Jleft of the rtghtmost 1, replace each 0 by 
complement of", '"'-"' answer: 01110110 1, and each 1 by 0 


"not'', "the complement of", NOT 10001010 replace each 0 by 1, and each 1 by 0 
"the one's comp. of", "~" answer: 01110101 
Hand! eaiay\it 10001010 put a1 wherever both original numbers 


AND 10001001 had 1 
answer: 10001000 
"Or! Watinclusive sor'tetVu 10001010 put a1 wherever some original number 
OR 10001001 had 1 
answer: 10001011 
reXclusive OR", 'XORVerT Vis 10001010 put a1 wherever the original numbers 
Map! XOR 10001001 differ 
re answer: 00000011 
Also, the ALU can shift a register's bits. For example, suppose a register contains 
10111001. The ALU can shift the bits toward the right: 


before 10111001 


after 5 0101 NY 
It can shift the bits toward the left: 


before ye 
after 01110010 


It can rotate the bits toward the right: 
before C AN 


after 1101110 
It can rotate the bits toward the left: 


before 7/10 sips 


after if ee 
It can shift the bits toward the right arithmetically: 
before 10111001 


after sgLab bin 


It can shift the bits toward the left arithmetically: 
before Td 
after yi 0 
Doubling a number is the same as shifting it left arithmetically. For example, 
Se ta six (to get twelve) is the same as shifting six left arithmetically: 


cee SOP 
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Halving a number is the same as shifting it right arithmetically. For example, 


halving six (to get three) is the same as shifting six right arithmetically: 
ix 000QQ110 


uae ANY 


Halving negative six (to get negative three) is the same as shifting negative six 
right arithmetically: 
negative six 11111010 
ab RAY 
negative three 11111101 
Using the ALU, the control unit can do operations such as: 
A. Find the number. in the 6*" memory location, and move its negative to a register. 
B. Change the number in a register, by adding to it the number in the 6th memory 
location. 
C. Change the number in a register, by subtracting from it the number in the 6th 
memory location. 
On most computers, each operation has one source and one destination. In operations 
Apeospand.c;, the source iS the 6th memory location; the destination is the register. 
The control unit cannot do a command such as "add together the number in the 6t 
memory location and the number in the 7th memory location, and put the sum in a 
register", because that operation would require two sources. Instead, you must give 
two shorter commands: 
Move the number in the 6 
Then add to that register the number in the 7th memor 


memory location to the register. 
location. 


FLAGS 

The CPU contains a flag register, which comments on what the CPU is doing. Ina 
typical CPU, the flag register has six bits, named as follows: 
the Negative bit 
the Zero bit 
the Carry bit 
the Overflow bit 
the Priority bit 
the Privilege bit 

When the CPU performs an operation (such as addition, subtraction, shifting, 
rotating, or moving), the operation has a source and a destination; the number that 
goes into the destination is the operation's result. If the result is a negative 
number, the CPU turns on the Negative bit; in other words, it makes the Negative bit 
be 1. (Conversely, if the result is a number that's not negative, the CPU makes the 
Negative bit be 0.) If the result is zero, the CPU turns on the Zero bit; in other 
words, it makes the Zero bit be l. 


When the ALU computes the result, it also computes an extra bit, which becomes 
the Carry bit. For example, here's how the ALU adds 7 and -4: 


(Pa 00000111 
-4 is 11111100 
binary addition gives 100000011 
result 

Carry 


So the result is 3, and the Carry bit becomes 1. 
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If the-ALUsecan't compute a result correctly, it turns on the Overflow bit. For 


example, in elementary school you learned that 98+33 is 131; so in binary, the 
computation should look like this: 


I2Z8M64 95 2e16 7 Sree a 

98 is 120s Oss Oieciea 0 

33 is ea Uses ae Ore OL 
the sum is 190.080 Och Onr lt whichal sais) 

But here's what an 8-bit ALU will do: 

sign 64 32 16 8 4 2 1 

98 is O--1 1 *50' Oak Oeetes 0 

33 is OF 20FE15208 10s ON 0 

the sumpas%0) 1 20) “OF OsfOuRORet Oe) 


Carry result 
Unfortunately, the result's leftmost 1 is in the position marked sign, instead of 
the position marked 128; so the result looks like a negative number. To warn you 
that the result is incorrect, the ALU turns on the Overflow bit. If you're programming 
in a language such as BASIC, the interpreter or compiler keeps checking whether the 
Overflow bit is on; when it finds that the bit is on, it prints the word OVERFLOW. 

While your program is running, it might be interrupted. Peripherals might 
interrupt, in order to input or output the data; the real-time clock might interrupt, 
to prevent you from hogging too much time, and to give another program a chance to 
run; and the computer's sensors might interrupt, when they sense that the computer 
is malfunctioning. When something wants to interrupt your program, the CPU checks 
whether your program has priority, by checking the Priority bit. If the Priority 
bit is on, your program has priority and cannot be interrupted. 

On a computer that's handling several programs at the same time, some operations 
are dangerous: if your program makes the computer do those operations, the other 
programs might be destroyed. Dangerous operations are called privileged instructions; 
to use them, you must be a privileged user. 

When you walk up to a terminal attached to a large computer, anda type HELLU or 
LOGIN, and type your user number, the operating system examines your user number 
to find out whether you are a privileged user. If you are, the operating system 
turns on the Privilege bit. When the CPU starts running your programs, it refuses 
to_do privileged instructions unless the Privilege bit is on. 

Microcomputers omit the Privilege bit, and can't prevent you from giving dangerous 
commands. But since the typical microcomputer has only one terminal, the only person 
your dangerous command can hurt is yourself. 

Some computers have several levels of priority and privilege. If your priority 
level is "moderately high", your program is immune from most interruptions, but 
not from all of them. If your privilege level is 'moderately high", you can order 
the CPU to do most of the privileged instructions, but not all of them. To allow 
those fine distinctions, large computers devote several bits to explaining the 
priority level, and several bits to explaining the privilege level. 

The bits in the flag register are called the flags. To emphasize that the flags 
comment on your program's status, people sometimes call them status flags. 

In the CPU, the program counter is next to the flag register. Instead of viewing 
them as separate registers, some programmers consider them to be parts of a single 
big register, called the program status word. 

You can give a command such as, ''Test the 3rd memory location". The CPU will 
examine the number in the 3%d¢ memory location; if that number is negative, the CPU 
will turn on the Negative bit; if that number is zero, the CPU will turn on the Zero 
bit. 

You can give a command such as, ''Test the difference between the number in the 
3rd register and the number in the 4th, The cPU will adjust the flags according 
to whether the difference is negative or zero or carries or overflows. 

You can use the flags, by giving a command such as, "If the Negative bit is on, 
go do the instruction in memory location 6". 
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SPEED 
Computers are fast. To describe computer speeds, programmers use these words: 
WORD ABBREVIATION MEANING 
millisecond msec 0’ ms thousandth of a second; 10 ° seconds 
microsecond sec OA us millionth of a second; 10 © seconds 
nanosecond nsec 0% ns billionth of a second; 10 2 seconds 
picosecond psec OX’ ps trillionth of a second; 10 12 seconds 


1000 picoseconds is a nanosecond; 1000 nanoseconds is a microsecond; 1000 microseconds 
is a millisecond; 1000 milliseconds is a second. 

On page 69, I said the tnstruction cycle has five steps: 
A. Fetch the instruction. 
B. Fetch additional parts for the instruction. 
C. Update the program counter. 
D. Decode the instruction. 
E. Execute the instruction. 
The total time to complete the instruction cycle is about a microsecond. The exact 
time depends on the quality of the CPU, the quality of the main memory, and the 
difficulty of the instruction, but usually lies between .1 microseconds and 10 
microseconds. 

Here are several ways to make the computer act more quickly: 
METHOD MEANING 
multiprocessing 
simultaneously. They share the same main memory. The 
Nearer system decides which CPU works on which program. 


instruction lookahead While the CPU is fintshing an instruction cycle (By doing 
steps D and E), tt stmultaneously begins working on the 


array processing The CPU holds at least 16 ALUs. All a1 ALUs work 
Simultaneously. For example, when the control unit wants 
to solve 16 multiplication problems, it sends each problem to 
a separate ALU; the ALUs compute the products simultaneously. 
The collection of ALUs is called an array processor. 

parallel functional units The ALU ts divided into several funettonal units: an 
addition unit, a multiplication unit, a division unit, a 
shift unit, etc. All the units work simultaneously; while 
one unit is working on one problem, another unit is working 

. on another. 

Pipeline architecture The ALU (or each ALU funettonal untt) conststs of a 
"first stage" and a "second stage". When the control unit 
sends a problem to the ALU, the problem enters the first 
stage, then leaves the first stage and enters the second stage. 
But while the problem is going through the second stage, a 
new problem starts going through the first stage. Such an 

: d ; ey 
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PARITY 
Most large computers put an extra bit at the end of each memory location. For example, 
a memory location in the PDP-10 holds 36 bits, but the PDP-10 puts an extra bit at the 
end, making 37 bits altogether. The extra bit is called the parity bit. If the number 
of ones in the memory location is even, the CPU turns the parity bit on; if the 
number of ones in the memory location is odd, the CPU turns the parity bit off. For 
example, if the memory location contains these 36 bits— 
000000000100010000000110000000000000 
there are 4 ones, so the number of ones is even, so the CPU turns the parity bit on: 
erhiaehtgranienste i 


read 


content parity 
If the memory location contains these 36 bits instead— 
000000000100010000000100000000000000 
there are 3 ones, so the number of ones is odd, so the CPU turns the parity bit off: 


Sei nies MMI eae 
content parity 


Whenever the CPU puts data into the main memory, it also puts in the parity bit. 
Whenever the CPU grabs data from the main memory, it checks whether the parity bit 
still matches the content. If the parity bit doesn't match, the CPU knows there was 
an error, and tries once again to grab the content and the parity bit. If the parity 
bit disagrees with the content again, the CPU decides that the memory is broken, 
refuses to run your program, prints a message saying PARITY ERROR, and then sweeps 
through the whole memory, checking the parity bit of every location; if the CPU 
finds another parity error (in your program or anyone else's), the CPU shuts off the 
whole computer. 

That's how the PDP-10 protects itself against faulty memory. Most maxicomputers 
and large minicomputers use variations of that scheme. Small minicomputers and 
microcomputers don't have parity bits in the memory, and are less reliable. 


UAL 
Universal Assembly Language (UAL) is a notation I invented, that makes programming 
in assembly language easier. 
UAL uses these symbols: 
SYMBOL MEANING 


MO the number in the Oth memory location 
M1 the number in the 1St memory location 
M2 the number in the 2"° memory location 
eLc. 

RO the number in the oth register 

R1 the number in the 1St register 

R2 the number in the 2"° register 

GLC 

P the number in the program counter 

N the Negative bit 

Z the Zero bit 

C the Carry bit 

V the oVerflow bit 


PRIORITY the PRIORITY bits 
PRIVILEGE the PRIVILEGE bits 


F the content of the entire Flag register 
F[5] the 5‘ bit in the Flag register 
R2[5] the 5¢" bit in R2 


R2[|LEFT] the left half of R2; in other words, the left half of the data in the gnd reg. 
R2[RIGHT] the right half of R2 


MS M6 a long number, whose left half is in the 5th memory location, and whose 
right half is in the 6th memory location 
M5L2 same as MS M6 


M5L3 same as MS M6 M7 
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Here are UAL statements: 


STATEMENT MEANING 

R2=7 Let R2 be 7. In other words, let the number in the nd register 
be 7. In other words, move 7 into the 2™ register. 

R2=M5 Let R2 be M5. In other words, let the number in the and register 


be the number in the 5th memory location. In other words, 
move the 5th memory location's contents into the and register. 


R2= =M5 Exchange R2 with M5. In other words, put the 5¢” memory 
location's content into the 2nd register, and vice versa. 

R2=R2+M5 Let R2 be R2 plus M5. In other words, change the integer in the 
and register, by adding to it the integer in the 5th memory 
location. 

R2=R2-M5 Subtract integers. 

R2=R2*M5 Multiply integers. 

R2 REM R3=R2/M5 Change the integer R2, by dividing into it the integer M5; and 


put the division's remainder into the 3rd register. 
R2=R2+M5 REAL Add real numbers. 


R2=R2+MS REAL UNNORM Add real numbers, but don't bother to normalize. 

R2=R2+M5 DECIMAL Add BCD numbers. 

R2=M5 TO REAL Let R2 be MS converted to a real (from an integer). In other 
words, let R2 be the real that has the same value as the 
integer MS. 


R2=M5 TO INTEGER Let R2 be MS converted to an integer (from a real). 

R2=M5 TO DECIMAL Let R2 be MS converted to a BCD number (from a binary integer). 

R2=M5 TO BINARY Let R2 be MS converted to a binary integer (from a BCD number). 

R2=M5 NORM Let R2 be MS normalized. In other words, let R2 be the normalized 
real that has the same value as the unnormalized real M5. 

R2=-M5 Let R2 be the negative of M5. 

R2=NOT MS Let R2 be the one's complement of M5. 

R2=R2 AND M5 Change R2, by performing the AND operation. 

R2=R2 OR MS Change R2, by performing the OR operation. 

R2=R2 XOR MS Change R2, by performing the XOR operation. 

SHIFTL R2 Sshifteleft. 

SHIFTR R2 Shift right. 

SHIFTRA R2 Shift right arithmetically. 

SHIFTR3 R2 Shite right, 3 times. 

SHIFTR(R7) R2 Shift right, R7 times. 

ROTATEL Rotate left. 

ROTATER Rotate right. 

TEST R2 Test R2. In other words, examine the number in the 2nd Tegvscen, 
and adjust the Negative and Zero bits. 

TEST R2-R4 Test R2-R4. In other words, examine the difference between R2 
and R4, and adjust the flag register. 

CONTINUE No operation; just continue on to the next instruction. 


WAIT Wait until an interrupt occurs. 

IF R2<0, P=7 If R2<0, let P=7. In other words, if the number in the 2” 
register is negative, move 7 into the program counter. 

IF R2<0, MS5=3, P=7 #£.If R2<0, do both of the following: let MS be 3, and P be 7. 

DO MS Do the statement in the 5th memory location. In other words, 
fetch, decode, and execute the statement in the 5th memory 
location, but without changing the number in the program counter. 

MS can be written as M(5) or M(2+3). It can be written as M(R7), if R7 is 5— 

other words, if register 7 contains 5. 

A number is octal unless it is preceded by the symbol # (for hexadecimal). 
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ADDRESSING MODES 
Suppose you want the 5th register to contain the number 6. You can accomplish that 
goal in one step, like this: 
R5=6 
Or you can accomplish it in two steps, like this: 
M7=6 
R5S=M7 
Or you can accomplish it in three steps, like this: 
M7=6 
M3=7 
R5=M (M3) 
Or you can accomplish it in an even weirder way: 
M7=6 
R2=4 
R5=M(3+R2) 

Each of those methods has a name. The first method (R5=6), which is the simplest, 
is called immediate addiessing. The second method (R5=M7), which contains the letter 
M, is called divect addiessing. The third method (R5=M(M3)), which contains the 
letter M twice, is called indirect addiessing. The fourth method (R5=M(3+R2)), 
which contains the letter M and a plus sign, is called indexed addressing. 

In each method, the st register is the destination. In the last three methods, 
the 7th memory location is the source. In the fourth method, which involves R2, the 
22¢ register is called the index rzegister, and R2 itself is called the index. 

Each of those methods is called an addiessing mode. So you've seen four addressing 
modes: immediate, direct, indirect, and indexed. 
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To handle the program counter, the computer uses other addressing modes instead. 
For example, suppose P (the number in the program counter) is 2073, and you want to 
change it to 2077. You can accomplish that goal simply, like this: 
P=2077 
Or you can accomplish it in a weirder way, like this: 
P=P+4 
Or you can accomplish it in an even weirder way, like this: 
R3=20 
P=R3 77 
The first method (P=2077), which is the simplest, is called absolute addressing. The 
second method (P=P+4), which involves addition, is called relative addtessing; the "+4" 
is the 0444et. The third method (P=R3 77) is called base-page addiessing; R3 (which is 
20) is called the page number; and so the 3rd register is called the page register. 
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The CPUS map 
NINE MAPS 


If one CPU is very similar to another, we say that both CPU's belong to the same 
family. In this chapter, we examine nine families: 


Name of family The most po ular members of the famil 


PDP-8 PDP-8/A, PDP-8/E, Intersil 6100 

PDP-10 PDP-10 (or Decsystem-10), PDP-20 (or Decsystem-20) 

PDP-11 PDP-11/03, 11/04, 11/34, 11/44, 11/70*, VAX-11/580*, VAX-11/780* 
CDC CDC 6200, CDC 6400, CDC 6600, CDC 7600, Cyber 70, Cyber 170 
IBM 360 IBM 360, 370, 4321, 4331, 4341, 3031, 3032, 3033, 3081* 

6800 Motorola 6800, Motorola 6809*, Motorola 68000* 

6502 MOS Technology 6502, MOS Technology 6502C 

8080 Intel 8080A, 8085, 8086*, 8088* 

Z-2N Zilog Z-80, Z-80A, Z-80B, Z-8001*, Z-8002* 


I've put an asterisk after each computer that's "souped up”. 

The first three families (PDP-8, PDP-10, and PDP-11) are all manufactured by 
Digital Equipment Corporation (DEC). The PDP-8 is a minicomputer. The PDP-10 is 
a maxicomputer. The PDP-11 is a "compromise" between the PDP-8 and PDP-10: it's 
larger than a PDP-8 but smaller than a PDP-10; it's a "large minicomputer". 

The next two families (CDC and IBM 360) are maxicomputers. The last four 
families (6800, 6502, 8080, and Z-80) are microcomputers. 

Here's a CPU map, for each computer family: 


PDP-8& PDP-10 PDP-11 CDC 


IBM 360 


exadecimal 
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Those maps are accurate for ordinary computers. Souped-up computers (which 
have asterisks) have fancier maps, which are not shown here. 


PDP-8 
To understand how to read a CPU's map, begin by looking at the map for the PDP-8, 
which is the simplest. 

At the top of the map, you see the numbers 0 and 11. That means: in each word, 
the leftmost bit is called "bit 0", and the rightmost bit is called "bit eleven". So each 
word contains twelve bits, numbered from zero through eleven. 

In the map, all the boxes have the same width, except for F's box, which is shorter. 
So RO, R1, P, MO, and M1 are each wide enough to hold a full word— twelve bits. 

F holds Jess than twelve bits. (In fact, F holds only 1 bit.) 

RO stands for register 0, and R1 stands for register 1, and P stands for the 
program counter, and M0 stands for memory location 0, and M1 stands for memory 
location 1. The map says that register 0, register 1, the program counter, 
memory location 0, and memory location 1 each hold a word. At the bottom of the map, 
the "etc." shows that the remaining memory locations (M2, M3, M4, etc.) each hold a 
word also. The flag register (represented by F) holds only 1 bit. (It's the Carry bit. 
Since the PDP-8 is cheap and crummy, it lacks other kinds of flags, such as Overflow, 
Priority, Privilege, Negative, and Zero.) 

The general-purpose registers have names. Most books about the PDP-8 call RO the 
"accumulator" and call R1 the "multiplier-quotient register". 

At the bottom of the map, you see the word "octal". That means the memory locations 
are numbered octally. So the eighth memory location is called "M10" instead of "M8"; 
the ninth memory location is called "M11"; and the tenth memory location is called "M12". 


PDP- 10 

The PDP-10 map shows that each word has thirty-six bits (numbered from 0 to 35). 
Each general-purpose register and each memory location holds thirty-six bits. The F 
and P are each a half-word; so F and P are each eighteen bits. (The word whose left 
half is P and whose right half is P is called the program status word.) 

The flag register (F) includes an Overflow bit, Carry bit, Privilege bits, and 
other bits that describe overflows and carries in more detail. Four of the flag register's 
bits are unused: they remain 0. The PDP-10 does not have a Negative bit or a Zero bit. 
An auxiliary flag register (not shown) holds the Priority bits. 

The bottom of the map says the numbering is octal. So there's no such thing as 
"M8" or "M9" or "R8" or "R9", The registers are numbered as follows: 
RO R1 R2 R3 R4 R5 RE RZ R10 R11 R12 R13 R14 R15 R16 R17 

Notice that the first memory location is called M20. If you try to make the CPU use 
a memory location numbered below M20 (such as MO or M1 or M17), the CPU will use a 
general-purpose register instead. For example, if you tell the CPU to use M5, the CPU 
will use R5 instead. 


PDP-11 

In the PDP-11, each word contains sixteen bits, numbered from 0 to 15. Notice that 
"bit 0" is the bit on the far right. (On the PDP-8 and PDP-10, "bit 0" is the bit on 
the far /eft.) 

The PDP-11 contains several general-purpose registers, numbered from RO to R6. 
If you tell the CPU to use "R7", the CPU will use the program counter (P) instead. 

Each memory location is just one byte, which is just eight bits, which is just half 
a word. So you need two memory locations to make a complete word. The first word 
of memory consists of M1 and M0; the next word of memory consists of M3 and M2; etc. 
WO stands for the word M1 M0; W2 stands for the word M3 M2; W4 stands for the word 
M5 M4; etc. 
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CDC 
In the CDC, each word is huge: sixty bits! Each memory location holds a word. The 
CPU contains general-purpose registers (X0 through X7); each holds a word. The CPU 
also contains a program counter (P), address registers (AO through A7), and index 
registers (B0 through B7); each holds eighteen bits. BO is always 0. The CPU lacks 
a flag register. 


IBM 360 

A word is thirty-two bits. Registers RO through R15 each contain a word. Registers 
F0, F2, F4, and F6 are called the floating point registers; each contains two words. 
The flag register (F) contains 40 bits; the program counter (P) contains 24 bits. 

Each memory location is just a byte, which is just eight bits, so you need four 
memory locations to hold a word. WO stands for the word M0 M1 M2 M3; W4 stands for 
the word M4 M5 M6 M7; W8 stands for M8 M9 M10 M11; etc. 

HO stands for the halfword M0 M1; H2 stands for M2 M3; etc. 


MICROCOMPUTERS 
In each microcomputer family (6800, 6502, 8080, and Z-80), a word is just eight bits, 
which is just a byte. Each memory location is a word. The main general-purpose 
register is called the accumulator (A), and is a word. The flag register (F) is a word. 
The program counter (P) is two words. The CPU also contains a register called the 
stack pointer (S). Some of the microcomputers contain index registers (X and Y). 
Here are the flag register's bits: 


Bit 7 Bit 6 Bit 5 Bit 4 Bit 3 Bit 2 Bit 1 Bit 0 
6800 1 1 HALFCARRY PRIORITY N Zz V C 
6502 N V 0 BREAK DECIMAL PRIORITY Z C 
8080 N Z 0 HALFCARRY 0 PARITY 1 C 
Z-80 N Zz 0 HALFCARRY O V SUBTRACT C 


On pages 71, 72, and 74, I explained the N, Z, C, V, and PRIORITY bits. In the 
8080 and Z-80, the PRIORITY bit lies outside the flag register. 

The BREAK bit helps handle interrupts. The PARITY bit helps do logic. 

In the 6502, turning on the DECIMAL bit makes the CPU do arithmetic in the decimal 
system (BCD) instead of in binary. The 6800, 8080, and Z-80 have no DECIMAL bit, 
and can't do decimal arithmetic directly: if you want to do decimal arithmetic on those 
computers, you must tell the CPU to do the arithmetic in binary instead, and then give 
a command that says ADJUST. The HALFCARRY bit helps the computer ADJUST. The 
SUBTRACT bit helps the computer ADJUST a subtraction. 
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lnstruction sets 


PDP-10 
The list of instructions that a CPU understands is called the CPU's instwuuction set. 
Each instruction is written in machine language or assembly language. 
To examine instruction sets, machine languages, and assembly languages, let's begin 
with the pleasantest CPU, which is the PDP-10. Here we go.... 
In PDP-10 machine language, each instruction is thirty-six bits. Here's an example: 
010111100101100000010000000111001100 
When you feed the CPU a machine-language instruction, the CPU begins by examinin 
the three leftmost bits. If the bits are 111, the CPU will do something with the 
eripherals (such as output, input, or check on their status); the remaining bits 
explain which peripheral to use and which operation to perform. If the bits are 000 
the CPU will use special software. If the bits are otherwise, the instruction 1s 
normal. In the example above, the bits are 010, so the instruction is normal. 
For normal instructions, the leftmost nine bits are called the operatton code or 
op code: 
Q10111109101100000010000000111001100 


op code 
The op code tells the CPU what kind of operation to do: addition, subtraction, 
multiplication, division, shifting, rotating, testing, or something weirder. In 
the example, the op code is 010111100, which means subtraction. It says to change 
a register's content, by subtracting the content of a memory location. But the op 
code is vague; it doesn't say whtch register and memory location to use. In other 
words, the op code says to do Ri=Ri-Mj, but doesn't say what i and j are. 

To find i, the CPU looks at the next four bits: 


10111100101100000010000000111001100 


op code i 
Since i is binary 1011, which in octal is 13, the CPU knows to do R13=R13-Mj. The 


1011 


only problem left is to find j. 
The CPU tentatively assumes j is the right half of the word: 


10111100 01400000910000000111001109 


op code i ye 
So it assumes j is 010000000111001100, which in octal is 200714. But before making 
a final decision, the CPU checks whether the mode bits between i and j are zero: 


Q10111109101100009010000000111001109 


op code i mode han 
Since the mode bits are indeed zero, j is indeed 200714, and the CPU does 
R13=R13-M200714. 

So to make the computer do R13=R13-M200714, you can feed it this machine-language 
instruction: 


Q10111100101100000010000000111001109 

op code i mode pve 
An easier way is to feed it this assembly-language instruction: 

SUB 13,200714 

The assembler will automatically translate the SUB into 010111100, the 13 into 1011, 
the comma into 00000, and the 200714 into 010000000111001100. That is, the assembler 
will translate octal into binary, and translate mnemonics (such as SUB) into op codes 


(such as 010111100). 


double 
precision 


reats 


move a word 
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The first mode bit is called the indinect bit; the remaining mode bits are called 
the index bits: 


10111100101100009010000000111001100 
ya - 


op Code 


index: j? 


indirect 


If the indirect bit is 1 instead of 0, the CPU does indirect addressing: 
doing R13=R13-M200714, it does R13=R13-M(M200714). 
the CPU does indirect addressing: 
which is octal 16, the CPU does R13=R13-M(200714+R16). 


the CPU does indirect and also indirect addressing, like this: 
R13=R13-M(M(200714+R16)). 


SUB 13, @200714(16) 
wyatt 


indirect 


Besides subtraction, the CPU can do many other operations. 


index 
register 


their mnemonics, and their speeds: 


OP MNE- 
CODE MONIC 


~110 DFAD 


WHAT THE MNEMONIC STANDS FOR 


Double Floating ADd 
Double Floating SuBtract 
Double Floating MultiPly 


Double MOVE 
Double MOVe Negative 


Double MOVE to Memory 
Double MOVe Negative to Memory 


UAL 
RiL2=RiL2+MjL2 REAL 
RiL2=RiL2-MjL2 REAL 
RiL2=RiL2*MjL2 REAL 


ee ee 


instead of 
If the index bits are not 0000, 
for example, if the index bits are binary 1110, 
If the mode bits are 11110, 


index 


R13+R13-M(M(200714+R16) 
Here's how to write it in assembly language: 


Here are the op codes, 


MICROSECONDS 
WITHOUT FETCH) 


(WITHOUT FETCH). 


2.59-7.00) 
2.59-7.19}) 
6.89-10. 56 


14. 88-15. 2¢ 


Se ee ee eee ee 


ee ee ee ee dd de eel 


eee ee mw es ae ew ew em = 


FIX and Round 
FLoaT and Round 


Ri=Mj TO INTEGER ROUNDED 


Ri=Mj TO REAL 


Ri Mj=-(Ri Mj) 


Sse nw Tt Mm wm eM KM Pm em em MPM Mm eM em em Mw Se KM Mm em ew ew em wm em Mm ew wm ee mM em mm ew ew ew MW we ew ew eM MW ee KM mM Be ew we MH MP MP MP ew Oe MP eww MP ww Mw SO eM SPM MP eM ew eww Mw ee = 


142 FADM 
143 FADB 


144 FADR 
145 FADRI 
146 FADRM 
147 FADRB 


150 FSB 


Floating ADd 

Floating ADd Long 
Floating ADd to Memory 
Floating ADd to Both 


Floating ADd and Round 

Floating ADd and Round Immediate 
Floating ADd and Round to Memory 
Floating ADd and Round to Both 


Floating SuBtract 


Ri=Ri+Mj REAL 
RiL2=Ri+Mj REAL 
Mj=Ri+Mj REAL 
Ri=Ri+Mj REAL 

Mj=Ri 

Ri=Ri+Mj REAL ROUNDED 
Ri=Ri+j REAL ROUNDED 
Mj=Ri+Mj REAL ROUNDED 
Ri=Ri+Mj REAL ROUNDED 
Mj=Ri 

Ri=Ri-Mj REAL 


(150-157, 160-167, and 170-177 resemble 140-147) 


160 FMP 
170 FDV 


Floating MultiPly 
Floating DiVide 


eae em te nm rr nm mr em mw mM em MP mB ew eww wm ew ww ww MP ew OP ww ew Mw we ewe ew wR ew ew ew em Pe ew ew MW wm ew Ww MW @O ew eww ew we ww Mw OO ew HK ew ew ee ww ee =— 


200 MOVE 
201 MOVEI 
202 MOVEM 
203 MOVES 
204 MOVS 


MOVE Immediate 
MOVE to Memory 
MOVE to Self 
MOVe Swapped 


J 
Ri=MjJCRIGHTJ] Mj€{LEFTI 


(204-207, 210-218, 214-217, 500-503, and 504-507 resemble 200-203) 


210 MOVN 
214 MOVM 


MOVe Negative 
MOVe Magnitude 


Ri=-Mj 
IF Mj>=0, Ri=Mj 
IF Mj<O, Ri=-Mj 


or 


wet em MP mew MP em Mm Mm em MP wm we wm me ew MP MP Me BP MP ew MO eM ew MP ww wm ew MP ww MP Pw Mm ew MO RM eww Ow em ww eK MP ew Ow Oe BP we we ew Mew ew Oe ew we wee ee eM ww ew ew ee) 


& 
= 220 
~_ VW) 
oS 
o 
os OD 
> 
= 224 
Z 230 
= 234 
= 240 
a 241 
® 
© 
» 
ae 242 
32 
«V0 243 
i ob 
ic 244 
(7p) 


IMUL 


Integer MULtiply 
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Ri=Ri*Mj 


3.47-6.38 


(220-228, 224-227, 280-238, 2384-237, 270-273, 274-277, 400-403, 404-407, 410-413, 


414-417, 420-4238, 424-427, 480-4355, 434-437, 440-443, 444-447, 450-453, 454-457, 


460-463, 464-467, 470-473, and 474-477 resemble 144-147) 


MUL 


LSH 
JFFO 


ASHC 


MULtiply 


ROTate 
Logical SHift 


Jump if Find First One 


IF Ri<x>0, R(i+1)=(HOW MANY LEADING ZEROS IN Ri), P=j 


Arithmetic SHift Combined 


IF j>0, SHIFTLj Ri R(it1)€1 TO 35) 
IF j<0O, SHIFTRA(-j) Ri R(it+1)C1 TO 35] 
(244-246 resemble 240-242) 


EXCHange 
BLock Transfer 


ww ewe wR eM eM BR BP Mm ew MM MK BK wm wm Mm wm wm MP www w@ BF wM ew mM www ew HM PM ew ew ew ewe ew ew =e 


Jump if Positive 
Add One to Both halves and 
Jump if Negative 
Jump and ReSTore 


Jump on Flag and Clear 


Ri R(it1)=Ri*Mj 3.63-7.14 
Ri REM R(i+1)=Ri/Mj 8.16-8.45 
Ri REM R(it1)=(Ri R(it+1))/Mj 8.10-8.51 
IF j>0, SHIFTLAJ Ri 1.14-5.10 
IF j<0, SHIFTRA(-j) Ri 
IF j>0, ROTATELjJ Ri 1.14-5.10 
IF j<0, ROTATER(-j) Ri 
IF j>0, SHIFTLJ Ri 1.14-5.10 
IF j<0O, SHIFTR(-j) Ri 
IF Ri=0, R(it1)=0 79-2.66 
IF j<20, R(it+1)[0J=Rif0] 1.14-9.06 
Ri=%= 1.61 
LENGTH=Mj -RilRIGHTI+1 1. 35+1.59* LENGTH 
Ri=(RifLEFTJ+1) (Ri€RIGHTIJ+1) 57 
IF Ri>=0, P=j 
Ri=(Ri€LEFT]+1) (Ri€RIGHTI+1) 57 
DPakis0 sab =) 
F=(DEPENDS ON i) 34 
P=j 

34 
DORM Ine 2 0) Sure eies. 54a (Meat IMES 
Rife |EMAPPED ARAMA pte IMAL 2 1312 


ee ee ee ee OE OOM mM eB Ow BM mM ew mM em Bw ew ew Bw eM BM MO ew eww ew eM Ow Mw ew ww em eM Mm Se eM RM KM BM eM eR mM wm mM em ee ew ew em ew Be wm ewe emer er werner ere rtereros 


PUSH and Jump 


PUSH 
POP 


POP and Jump 


M(RilRIGHT])=F P 


P=j 


Ri=(RiLLEFT]+1) (RifRIGHT]+1) 1.94 


M(RiCRIGHT} )=Mj 
Mj =M(RiL RIGHTS) 


Ri=(Ri€fLEFTIJ-1) (Rif RIGHTI-1) 
Ri=(Ri€LEFTIJ-1) (RifRIGHTJ-1) 1.43 


el i tee id 


ow 250 
<6 251 
= 
252 
253 
254 
255 
256 
25 
260 
i. 
(o) 
fom 
tp n261 
pe 
_ 262 
ek, 
263 
264 
= 
2 wy 
a 265 
28 
. = 266 
> 
2 
SS 5 
ev 
a 267 
270 
274 


aga &@ SUDLTACT 
integers 


Jump to SubRoutine 
Jump and Save P 


Jump and Save Accumulator 


Jump and Restore Accumulator 


P=j+1 


Ri=M(RiL LEFT} ) 


P=j 


ww Be wm eww Mew ew ew MeO eM ew ew MK OM eM MK ew Mw ew wwe BKM mw eM eO @ eB ww Oo Mew OM @ Mw ww KM we KH Be SP Me OTM ww MP TF ew Mw MW ew ew HK TP ww ew Ow Te eT Trew ewe re Ss 


maybe skip or jump 


AND, OR, XOR, & NOT 


move half a word 
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300 CAI Compare Acc. Immed. § skip never CONTINUE ¥O2 
301 CAIL Compare Acc. Im. & skip if Less IF Ri<j, P=P+1 7O2 
302 CAIE Compare Acc. Im. §& skip if Equal IF Ri=j, P=P+1 -62 
303 CAILE Compare Acc. Im. & skip if L.E. IF Ri<=j, P=P+1 ~62 
304 CAIA Compare Acc. Im. & skip Always’ P=P+1 -62 
305 CAIGE Compare Acc. Im. §& skip if G.E. IF Ri>=j, P=P+1 -62 
306 CAIN Compare Acc. Im. § skip if N. IF Ri<>j, P=P+1 -62 
307 CAIG Compare Acc. Im. §& skip if Grea. IF Ri>j, P=P+1 ~62 
(310-317, 320-327, 330-337, 340-847, 350-357, 360-367, and 370-377 resemble 300-307) 
311 CAML Co. Acc. with Mem. & skip if Le. IF Ri<Mj, P=P+1 1.43 
321 JUMPL JUMP if Less IF Ri<xO0, P=j - 56 
331 SKIPL SKIP if Less IF i<>0, Ri=Mj 1557 
IF Mj<0, P=P+1 
341 AOJL Add One and Jump if Less Ri=Ri+1 -62 
IF Ri<x0, P=j 
351 AOSL Add One and Skip if Less Mj=Mj+1 1.78 
IF i<x>0, Ri=Mj 
IF Mj<0O, P=P+1 
361 SOJL Subtract One and Jump if Less Ri=Ri-1 262 
IF Ri<x0, P=j 
371 SOSL Subtract One and Skip if Less Mj=Mj-1 1.78 
IF i<>0, Ri=Mj 
a Ueno oe _EP®Mj<O0 mPa tI Oe. eee 
ZA00)SETZ0" SETAtO (Zeroseeaa armen eae eo Ri=0 \2 "yaa eaeys te Oy ee -45- 
404 AND AND Ri=Ri AND Mj 1.26 
410 ANDCA AND Complement of Accumulator Ri=(NOT Ri) AND Mj 1.26 
414 SETM SET to Memory Ri=Mj 1.26 
420 ANDCM AND Complement of Memory Ri=Ri AND (NOT Mj) 1.26 
424 SETA SET to Accumulator Ri=Ri ~45 
430 XOR XOR Ri=Ri XOR Mj 1.26 
434 IOR Inclusive OR Ri=Ri OR Mj 1337 
440 ANDCB AND with Complements of Both Ri=(NOT Ri) AND (NOT Mj) 1:26 
444 EQV EQuiValence Ri=NOT (Ri XOR Mj) 1.26 
450 SETCA SET to Complement of Accumulator Ri=NOT Ri 45 
454 ORCA OR Complement of Accumulator Ri=(NOT Ri) OR Mj L537, 
460 SETCM SET to Complement of Memory Ri=NOT Mj 1.26 
464 ORCM OR Complement of Memory Ri=Ri OR (NOT Mj) 1.37 
470 ORCB OR Complements of Both Ri=(NOT Ri) OR (NOT Mj) 1.37 
/ATAPSETON A SETEtO! Ones UNI ben Meeeeten 0 RIS77I7I717777, 
500 HLL Half word Left to Left ~~ = = =———S& RA LEFTIJ=MjCLEFT] "7 RIE26" 
504 HRL Half word Right to Left Ri{LEFTJ=Mj CRIGHTI 1-26 
510 HLLZ Half word Left to Left Zeros Ri=Mj[CLEFTJ 000000 1°26 
(510-517, 520-527, and 580-587 resemble 500-507) 
520 HLLO Half word Left to Left Ones Ri=Mj£LEFT] 777777 1226 
530 HLLE Half word Left to L. Extend sign 1.26 


IF Mj [LEFTJ>=0, Ri=Mj[LEFTJ 000000 

IF Mj ELEFTI<0, Ri=Mj CLEFT] 777777 
540 HRR Half word Right to Right Ri€RIGHTIJ=Mj CRIGHTI 1.26 
(540-577 resemble 500-537) 


create a mask 
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600 TRN Test Right No modification MASK=Ri€RIGHTJ AND Mj 34 
601 TLN Test Left No modification MASK=Ri[LEFTJ AND Mj 45 
602 TRNE' Test R. No mod. § skip if Eq. z. MASK=Ri[RIGHTJ AND Mj 251 


IF MASK=0, P=P+1 
(602-603, 604-605, and 606-607 resemble 601-602) 


604 TRNA’ Test R. No mod. § skip Always MASK=RiERIGHTJ AND Mj 45 
P=P+1 

606 TRNN’ Test R. No mod. §& skip if Not z. MASK=Rif[RIGHTJ AND Mj lel 
IF MASK<>0, P=P+1 

610 TDN Test Direct No modification MASK=Ri AND Mj eh 


611 TSN Test Swapped No modification MASK=Ri AND (MjERIGHTJ Mj[LEFTJ) 1.26 

610-617 resemble 600-607) 

620 TRZ Test Right and set to Zeros MASK=RiL RIGHTJ AND Mj °45 
RifRIGHTJ=RifRIGHTJ AND NOT MASK 

(620-637, 640-657, and 660-677 resemble 600-617) 


640 TRC Test Right and set to Complement MASK=RiLRIGHTJ AND Mj 45 
RifRIGHTJ=RiCRIGHTJ XOR MASK 
660 TRO Test Right and set to Ones MASK=RiCRIGHTJ AND Mj =56 


Ri[RIGHTJ= RifRIGHT) OR MASK 


_- - -—=— 
fee MM SF ew ae KM Ow we MOO eM BO BM OMe KM OM MM @M Ow MW Me ew KO KM MW ww ew MBM @ Kew ew Ow ZW OSC eM ew OO SM BM eZ ee SO SBT O@ G2 Ce we Fe KB ww KM eB Mw ewe wT Se Oe ST eM Ee 


the word SUB, which stands for SUBtract. 
in 1.32 microseconds. 
ne 220 2 ‘ 
To make the computer do op code 220, your assembly-language program should contain 
the word IMUL, which stands for Integer MULtiply. Op code 220 makes the computer 
do "Ri=Ri*Mj" in from 3.47 to 6.38 microseconds. (The exact time depends on what 
Ri_ and Mj are. 
The times in the table assume the addressing mode is immediate or direct. For 
indirect addressing, add 1.02 microseconds; for indexed addressing, add .06 
microseconds. 
Look at page 69 again—steps A, B, C, D, and E—the five steps the CPU must do to 
execute a machine-language instruction. The times in the table include just steps 
B, C, D, and E. The times do not include step A, which takes .89 microseconds. So 
to find the total time for op code 274, add .89 microseconds to the time in the table 
(1.32 microseconds), which gives you a total of 2.21 microseconds. The table omits 
the .89 microseconds because the CPU has instruction lookahead—it usually does step A 
of a new instruction at the same time as steps D and E of the previous instruction. 
The PDP-10 family consists of four models: the PDP-KA10, the PDP-KI10, the PDP-KL10, 
and the PDP-20. The PDP-KA10 is the slowest. Most programs run twice as quickly on 
the PDP-KI10, and ten times as quickly on the PDP-KL10. The PDP-20 is about as fast 
as the PDP-KI10 but has a different operating system. The times in the table are 
for the PDP-KI10. (The PDP-KA10 lacks some of the op codes, lacks instruction 
lookahead, and has a slower ALU. The PDP-20 and PDP-KL10 have extra op codes, and 
the PDP-KL10 grabs information from memory more quickly.) 
Here's a complete program, written in assembly language: 
START: MOVEI 3,647 
SUBIVS 3.2 
EXIT 
END START 
The first line makes the computer do R3=647. The next line makes the computer do 
R3=R3-2, so R3 becomes 645. The EXIT and END START mark the end of the program. 
When the program has finished executing, the 3rd register contains 645. To prove 
so, type this on your terminal: 
Ee 
That makes the operating system Examine the 3rd register. The operating system will 
print on your terminal: 
000003/ 000000 000645 
That means: the 3rd register contains 645. 


Op code 274 makes the computer do "Ri=Ri+Mj" 
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PDP-8 
The PDP-8 is smaller, simpler, and cheaper than the PDP-10. 
In PDP-8 machine language, each instruction is just twelve bits, like this: 
001000101011 
In octal, that becomes: 
Oe. 545 


The leftmost octal digit is the op code: 


Opn5. 35 
op code 
Here's what the op code means: 
OP CODE MNEMONIC WHAT THE MNEMONIC STANDS FOR UAL MICROSECONDS 
0 AND AND RO=RO AND Mj 3 
1 TAD Twos complement ADd RO=RO+Mj 3 
vu ISZ Increment and Skip if Zero Mj=Mj+1 3 
IF Mj=0, P=P+1 
3 DCA Deposit and Clear Accumulator Mj=R0 3 
RO=0 
4 JMS JuMp to Subroutine Mj=P 3 
P=j+1 
5 JMP JuMP P=j 1.5 


(6 mantpulates the peripherals. 7 manipulates just the CPU registers.) 

In that table, the time includes all five steps (A, B, C, D, and E), and assumes 
the CPU is a PDP-8/A or PDP-8/I. (The PDP-8/E and PDP-8/M are slightly faster; the 
PDP-8/L and PDP-8/S are slower.) | 

The CPU tentatively assumes j is the rightmost seven bits: 

001000101011 

YW eS 

op ahs 

code 

But before making a final decision, the CPU checks whether the mode bits are zero: 
001000101011 


op ans 
code 

mode 
In that example, the op code is octal 1, which according to the table means RO=RO+Mj. 
Since the mode bits are zero, j is indeed 0101011, which is octal 053, so the CPU 
will do RO=RO+M053. 

The first mode bit is called the indirect bit; the other mode bit is called the 
base-page bit: 
0v1Q90101011 
ye Neca od 


indirect? base-page? 
Here's what happens if you change the indirect and base-page bits: 
INDIRECT BIT BASE-PAGE BIT WHAT THE CPU WILL DO 


0 0 RO=RO+M053 

1 0 RO=RO+M(M053) 

0 1 RO=RO+M(PLO TO 4] 053) 

1 1 RO=RO+M(M(PLO TO 42 053)) 


If the indirect bit is 1, and the base-page bit is 0, and the tentative j is at 
least 010 but less than 020 (instead of being 053), the CPU will do Mj=Mj+1 before 
doing the instruction. 
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PDP-11 

The PDP-11 is a compromise between the PDP-8 and the PDP-10. The PDP-8 is cheap 
but not powerful; the PDP-10 is powerful but not cheap; the PDP-11 is almost as 
cheap as the PDP-8, yet almost as powerful as the PDP-10, and is the most admired 
minicomputer in the world. You can get either the standard PDP-11 or the "souped-up" 
PDP-11. The souped-up version is called the VAX-11; it's more expensive. I'1l 
discuss just the standard version here. 

In PDP-11 machine language, each instruction is usually sixteen bits, like this: 
1110000101000011 
In octal, that becomes: 
1210000101000011 


15Gp50) 5-60. °3 
The leftmost pair of octal digits is the op code. Here's how the other octal digits 
are named: 


XS Os) 


If the mode for i and the mode for j are both 0, here's what the op code means: 
OP_CODE ASSEMBLY LANGUAGE WHAT THE MNEMONIC STANDS FOR UAL 


O01 MOV. Ri, Rj MOVe Rj=Ri 

02 CMP Ri,Rj CoMPare TEST Ri-Rj 

03 BIT Ri,Rj BIt Test TEST Ri AND Rj 

04 BIC Ri,Rj BIt Clear Rj=Rj AND NOT Ri 
05 BIS Ri, Rj BIt Set Rj=Rj OR Ri 

06 ADD Ri, Rj ADD Rj=Rj+Ri 

11 MOVB Ri,Rj MOVe Byte RjJERIGHTI=Ri€RIGHTJ 
(11-15 resemble 01-05) 

16 SUB Ri, Rj SUBtract Rj=Rj-Ri 


Here's how long those instructions take.... 
PDP-11/03: 3.5 us always 
PDP-11/04: 2.9 us for op codes 01-03; 3.2 us for codes 04-06 § 16; 2.9-3.9 for others 
PDP-11/34: 1.8 us for op codes 01 & 11; 2.0 us for others (assuming the memory is core) 
PDP-11/40: .9 us for op code 01; 1.8 us for code 11; 1.0 us for others 
PDP-11/45: 1.0 us if j#7; 1.2 us if j=7 (assuming the memory is large core) 
PDP-11/70: .3 ws if j#7; .6 ws if j=7 (assuming the memory is core plus ''cache'') 
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If the modes are not zero, the instruction is more complicated and consumes more 
time. For example, here's what happens if the op code is 03, and the mode for i 
stays 0, but the mode for j changes: 


MODE FOR j MODE'S NAME ASSEMBLY LANGUAGE UAL 

0 direct BIT Ri,Rj "TEST Ri AND Rj 

1 indirect BIT Ri, @Rj TEST Ri AND W(Rj) 

2 autoincrement BETARL (RI) TEST Ri AND W(Rj) 
Rj=Rj+2 

3 autoincrement indirect BIT Ri,@(Rj)+ TEST Ri AND W(W(Rj)) 
RjJ=Rj+2 

4 autodecrement BIT Ri,-(Rj) Rj=Rj-2 
TEST Ri AND W(Rj) 

5 autodecrement indirect BIT Ri,@-(Rj) .Rj=Rj-2 
TEST Ri AND W(W(Rj)) 

6 indexed BIT Ri,k(Rj) TEST Ri AND W(k+Rj) 


(the instruction takes two words 
instead of one; the second word 
contatns k) 
7 indexed indirect BIT Ri, @k(Rj) TEST Ri AND W(W(k+Rj)) 
(the tnstruction takes two words 
instead of one; the second word 
contains k) 
The same modes are available for i. Here are examples: 


MODE FOR i MODE FOR j ASSEMBLY LANGUAGE UAL 
1 (indirect) 0 (direct) BIT @Ri,Rj TEST W(Ri) AND Rj 


7 (indexed) 6 (indexed indirect) BIT n(Ri),@k(Rj) | TEST W(n+Ri) AND W(W(k+Rj)) 
(the instruction takes three words 
instead of one; the second word 
contains n; the third word contains 
k) 

For op codes 11-15 (which involve bytes instead of words), the modes have different 
meanings: for modes 1, 2, 4, and 6, replace the "W"' by "M"; for modes 3, 5, and 7, 
replace the "W(W" by "M(W"; for modes 2 and 4, replace the "2" by "1". 

Op codes 00, 07, and 10 do fancy logic. Op code 17, which is only on the PDP-11/34 
and on models larger than the PDP-11/40, handles reals. 


CDC 
Who makes the fastest large family of computers? The answer is: Control Data 
Corporation. In 1965, it began selling the computer that made it famous: the 
CDC 6600, which can add together two numbers with extreme accuracy (60 bits) in 
-3 microseconds. Later, CDC began selling cheaper versions (the 6200 and 6400) and 
a more expensive version (the 7600): 


ADDING TWO MULTIPLYING TWO 
MODEL 60-BIT INTEGERS 60-BIT REALS 
6200 79 US 6.0 us 
6400 -6 us 5 a72us 
6600 -3 us 1.0 us 
7600 ~=.055 us 138 us 


Although CDC computers were excellent at handling binary arithmetic, they were 
poor at handling strings. So CDC created a new series of computers (called the Cyber 70). 
which includes a new string-handling unit (called the Compare/Move Unit, or CMU): 
MODEL DEFINITION 
Cyber 70/72 6200 with CMU 
Cyber 70/73 6400 with CMU 
Cyber 70/74 6600 with CMU 
Cyber 70/76 7600 with CMU 
In 1974, CDC began selling an even faster series, called the CDC Cyber 170. 


add & 
subtract 
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In CDC machine language, each instruction begins with a six-bit op code, followed 
by a three-bit i, a three-bit j, and a k. Usually k has three bits; but for op codes 
00-07, 50-52, 60-62, and 70-72, it has eighteen bits; and for op code 46, it has 
either three or eighteen or forty-eight bits, depending on i. 

CDC's assembly language is called COMPASS. Like PDP assembly languages, COMPASS 
uses octal. But instead of using mnemonics, COMPASS uses symbols such as ''+" and '"*"; 


OP COMPASS WHAT THE SYMBOL MICROSECONDS 
CODE SYMBOL STANDS FOR UAL 70/72, 10/7 38= 70/74 
5 DORR S IME A Ree ote U Ome HALT Ms ea ences) eee EUs LSet ee 
(01 handles subroutines, "extended core”, and "peripheral processors?) 7 
02 JP Bitk JumP P=Bit+k 1.6 1.3 1.4 
(03 makes the computer examine t_and Xj and maybe do Prk) eee 
<- f° 04 EQ Bi,Bj,k EQual EPoBisn) ek 1-6 75=103%.8-1.2 
2J 05 NE Bi,Bj,k Not Equal IF Bi<>Bj, P=k 1.6 J5=153 4 8-1.2 
© |} 06 #£GE Bi,Bj,k Greater or Equal IF Bi>=Bj, P=k 1.6 -5-1.3 .8-1.2 
@ (07 ___LT Bi,Bj,k Less Than IF Bi<=Bj, P=k a elt Gee 5" 4 1588 8-12 
OMEBD RISEN Me BOO leanmlogic meXl=X] 5 12) PA, eal CEM eel opt 3 
11 BXi Xj*Xk Boolean logic Xi=Xj AND Xk 8 =o ZS 
o 12. BXi Xj+Xk Boolean logic Xi=Xj OR Xk 8 -5 ae) 
= 13. BXi Xj-Xk Boolean logic Xi=Xj XOR Xk 8 5 ae 
o) 14 BXi -Xk Boolean logic Xi=NOT Xk 8 -5 23 
“ J 15  BXi -Xk*Xj Boolean logic Xi=Xj AND NOT Xk 8 5 3 
16 BXi -Xk+Xj Boolean logic | Xi=Xj OR NOT Xk 8 5 3 
_17___BXi_-Xk-Xj Boolean logic ___Xi=Xj_XOR NOT_Xk_____ 1 is Seas 
2ONPELXI i Ken “Left rf “ROTATELjk Xi_ .9 6 23 
oo | (2189 AXi jk Arithmetic shift SHIFTRAjk Xi 9 -6 3 
S34 22 LXi Bj,Xk Left Xi=Xk 1 9 .6 3 
=° ROTATEL(Bj) Xi 
ie 23. AXi BjJ,Xk Arithmetic shift Xi=Xk 9 6 3 
MR ei elt adie ebyd |» SHLPIRA (Bj) examen BERS ee BOM NG! | 
24° NXi Bj,Xk Normalize | Xi COUNT Bj=Xk NORM 7 ARG, ay, 4 
25. ZXi Bj,Xk Znormalize ___Xi COUNT Bj=Xk NORM ROUNDED 1.0  _.7 4 
BD ou IBUXiLBIE Xk) (Unpackamameue? O2 Bj LPACKEDGWITHOKT =X kta en an 120; a a 
Q7NSePXU Bie XK: PackMeeue Regie Xi=Bj_PACKED WITH Xk IROMer oem 5 
'30. FXi Xj+Xk Floating point Xi=Xj+Xk REAL = — Pra 1.1 4 
31  FXi Xj-Xk Floating point Xi=Xj-Xk REAL 1.4 he 4 
32 DXi Xj+Xk Double precision Xi=(Xj+Xk REAL DOUBLE)CRIGHT] 1.4 1.1 74 
33. DXi Xj-Xk Double precision Xi=(Xj-Xk REAL DOUBLE)CRIGHT] 1.4 tat 4 
34 RXi Xj+Xk Round Xi=Xj+Xk REAL ROUNDED 1.4 ict 4 
35 RXi Xj-Xk Round Xi=Xj-Xk REAL ROUNDED 1.4 1.1 4 
36 IXi Xj+Xk Integer Xi=Xj+Xk 9 6 3 
Sie lAleXjaXkewinteger MiSXJEXKoy Oro te AOU po Uireers a Oo OF 8 ee Se! 
40 4FXi,Xj*Xk Floating pointssexi=%j*Xk REAL) =) 5 Os USBY, 1:0 
41  RXi Xj*Xk Round Xi=Xj*Xk REAL ROUNDED 6.0 5.7 1.0 
_42___DXi_Xj*Xk__Double_ precision Xi=(Xj*Xk_REAL DOUBLE) RIGHT 6.0___5:7__ 1:0. 
ASSHRDD IRM LiNask A Tia Xi= (jk ONES) (60-jk ZEROS)" "7719 0036 03 
"44 FXi_ Xj7Xk” Floating point Xi=Xj/Xk REAL 6: Olen S 570 269 
Ss { 45___RXi Xj/Xk__Round_ Xi=Xj/Xk REAL ROUNDED pl a ea 
S (46 handles strings, by using the Compare/Move Unit) ~~ 
S 47___CXi Xk ___Count____________Xi=(HOW MANY ONES IN Xk) ______ (lira O'.8e eyes 82 oh 
PS0meSAIAT HK ie Sete 8 ae Ai=Aj+k_ ; ” eG 5oG-loa. 


IF i>5, M(Ai)=Xi 
IF i>0 AND i<=5, Xi=M(Ai) 
(51-57 resemble 50, but replace Ajtk by: Bjtk, Xjtk, Xj+Bk, Aj+Bk, Aj-Bk, BJ+Bk, BJ-Bk. 


60 SBi Ajtk Set IF i>0, Bi=Ajtk 8 a) s 
(60-67 resemble 50-57) 
70 SXi Aj+k Set Xi=Aj+k 9 6 3 
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IBM 360 
The IBM 360 family is the world's most popular family of maxicomputers. The family 
contains four series you can choose from: the 360 series (which is the oldest), 
the 370 series (which is newer), the 4300 series (which is very new and low-cost), 
and the 3000 series (which is very new and very fast). 
The 360 series consists of many models: the 360/20, 360/30, 360/40, 360/44, 360/50, 
360/65, 360/67, 360/75, 360/85, and 360/195. The 370 series consists of many models 


also: 

ADDING TWO ADDING TWO MULTIPLYING TWO DIVIDING TWO 
MODEL 32-BIT INTEGERS 5-DIGIT BCD NUMBERS 32-BIT INTEGERS 32-BIT INTEGERS 
370/11S > Tae 5eis 107.6 us 226 s1anis 246.4 us 
570/125) 948 as 46.1 us 143.4 us 243.7 us 
370/135 “4529108 40.9 us 255 5u LS 41.9 us 
370/145" 92¢1aiis 11.9 us 20.laus 34.8 us 
3570/1557 ila0eus 4.9 us 
370/158 .8 us 3.8 us 
370/165 16 us 1.4 us 
370/168 13 us 
370/195 2054S 


(For the lower right part of that table, data is not available.) The 4300 series 
consists of the 4321, 4331, and 4341. The 3000 series consists of the 3031, 3032, 
3033, and 3081. 
In IBM machine language, each instruction begins with an eight-bit op code. Some 

instructions nave this format— 

oh Wipe Ops Codey WM (ts 5 eek See ee 
DECLOWRE 25 432455 6 Oi) LO ai et At 
—so the leftmost eight bits form the op code, the next four bits form i, and the 
next four bits form j. Here are the op codes (for the IBM 370/168 operating in 


"BC mode't) : 
OP CODE 
(HEXA- MNE- 
DECIMAL) MONIC WHAT THE MNEMONIC STANDS FOR UAL 
rH04 SG SPM Set Program Mask Fe4 TO 39J=Ril€2 TO 7] Z 
#05 BALR#) Branch <andehinkaRe Gaaeae See Ri=FE32 TOss99 Pua) soy sn ee 
5 IF j>0, P=Rj 
ee #06 BCTR Branch on CounT R Ri=Ri-1 
iS IF (j>0) AND (Ri<>0), P=Rj 
IOUS trp BCR___Branch on Condition R_ ___IF (j_0) AND (i€FD34 TO 353)=1), P=Rj 
@ #08 SSK %, Set, StoragegKey po:ifiae dean us a privilegedmnstructions. «iss ees 
ply Sa ISK __Insert Storage Key ___________a privileged instruction __________ 
gx #0A SVC SuperVisor Call FE16 TO 233=0 
nn F{24 TO 31} =#ij 
M32L2=F P 
hi Soe RRO > — » SAO, Sas F P=M96L2 
nv (#0E MVCL) | MoVerCharactersiLong| I0"htietk AOLAL Sennen Snel eeeeneomeee 
ec} M(Ri)L(R(it+1)£8 TO 313)=M(Rj)L(R(j+1)E8 TO 31)) PADDED BY R(j+1)[0 TO 
— 5 \ #0F CLCL Compare Logical Characters Long 
72) 


TEST M(Ri)L(R(i+1)£8 TO 313) -M(Rj)L(j+1)E8 TO 319 UNSIGNED PADDED BY 
R(j+1)L0 TO 
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#10 LPR Load Positive R IF Rj>=0, Ri=Rj 
IF Rj<0, Ri=-Rj 
#11 LNR Load Negative R IF Rj<=0, Ri=Rj 
IF Rj>0, Ri=-Rj 
#12 LTR Load and Test R Ri=Rj 
TEST Ri 
oO #13 LCR Load Complement R Ri=-Rj 
Da #14 NR aNd R Ri=Ri AND Rj 
— #15 CLR Compare Logical R TEST Ri-Rj UNSIGNED 
#16 OR Or R Ri=Ri OR Rj 
#17 XR - eXclusive-or R Ri=Ri XOR Rj 
#18 LR Load R Ri=Rj 
#19 CR __Compare R TEST Ri-Rj 
A eee ARSPRIRAGGAR Mena > UR as RISERS Mie eh ye en ae 
ee #1B SR Subtract R Ri=Ri-Rj 
D ow #1C MR Multiply R RiL2=R(it+1) *Rj 
9g #1D DR Divide R R(it1) REM Ri=(Ri R(it1))/Rj 
re #1E ALR Add Logical R Ri=Ri+Rj UNSIGNED 
#1F_____SLR__ Subtract Logical R___________Ri=Ri-Rj UNSIGNED 
P20 ME ALPORUE LOadweositivesDoublemReeistersIFaFj>=0, Fizrkjan 9° °° 2 >> © 
IF Fj<0, Fi=-Fj 
(#20-#23 resemble #10-#13) 
#24 HDR Halve Double Register Fi=Fj/2 REAL 
#25 LRDR Load Rounded Double Register Fi=FjL2 ROUNDED 
#26 MXR Multiply eXtended Register FiL2=FiL2*FjJL2 REAL 
#27 MXDR Multiply eXtended Double Reg. FiL2=Fi*Fj REAL 
#28 LDR Load Double Register Fi=Fj 
b 829 tee: CDR___Compare Double Register ______TEST Fi-Fj REAL wee 
-f #2A ADR@ieAddiDouble Register. 91° PishitE TEREALW eae Mao 
wo #2B SDR Subtract Double Register Fi=Fi-Fj REAL 
Ta WG #2C MDR Multiply Double Register Fi=Fi*Fj REAL 
S Oo} #2D DDR Divide Double Register Fi=Fi/Fj REAL 
Sg ge AWR Add W Register Fi=Fi+Fj REAL UNNORM 
_#2F_____SWR__ Subtract W Register FisFi-Fj REAL UNNORM 
#30 “LPER Load Positive Exponent'l Reg. IF FJELEFIQ>=0, FiC LEFTJ=FjCLEFTI 


IF FJCLEFTI<0, Fi{LEFTJ=-FjCLEFT 
(#30-#35 resemble #20-#25) 


- #36 AXR Add eXtended Register FiL2=FiL2+FjL2 REAL 
#37 SXR Subtract eXtended Register FiL2=FiL2-FjL2 REAL 
#38 LER Load Exponential Register FifLEFTJ=FjELEFT2 


(#38-#3F resemble #28-#2F: replace Ft by FiLLEFTJ; replace Fj by FJL£LEFTI; in the 


See Memes @— = — — ae eww ww ew eK eK wwe me ew em ee eee Oe MB ew ew ewe ew KM BOM ew eB eM ew ew Mw BM ew OM HK ewe KM eH = eee ee ee 
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Some instructions have this format instead: 
et Op code! or ke |salinn] wai ree goat aoe ama bees c 

bit O°1 26315465 6977 8n9 16722912013 014015 1617018519820 22 18228 25524N 25626027 2See oe 0 
Here's how to compute j; 

if a4#0 and bé0, j=Ra+Rb+c 
if a#0 and b=0, j=Ra +c 
if a=0 and b#0, j=  Rbtc| 
if a=0 and b=0, j= 
The following op codes use that format: 

OP CODE MNEM. WHAT THE MNEMONIC STANDS FOR UAL 


#40 STH STore H Hj=RiCRIGHT 
#41 LA Load Address Ri=j 
#42 STC STore Character Mj=Ri€24 TO 31] 
AS HES. IC____Insert Character. RiE24°TO SDEMj we eee 
#44 EXGa,EXecuten enka er he IF i=0 BD0iHinwus r 
SOHNE RUE OE Le eee een ete eee IF i>0, DO_Mj_(M(j+1) OR Rif24 TO 313) 
es #45 BAL Branch And Link Ri=F[32 TO 393 P 
Ss) P=j 
s% #46 BCT Branch on CounT Ri=Ri-1 
5 IF Ri<>0, P=j 
_#47_____BC____Branch on Condition __________IF_i€FC34_TO_35YJ=1, _P=j 
{f #48 LH Load H z Rich] aie FSF eee 
={ (#48-#4B resemble #18-#1B) 
PE MH... Multiply cis. | Sbehmcitl ede Ri=Ri*Hj 
ay CAE CVD. iConVert'tocDécimal,. ..u)lmeUNFL2=RiGTODDECIMAL Gur) |) 0 enna 
aay _#4F CVB___ConVert to Binary == Ri=WjL2 TO BINARY 
a #50 Si Store? v) * Ga ee ee hee Wi=Rt YS Vaart 7) Se 
#54 N aNd Ri=Ri AND Wj 
os ff (rod Rok neeomble 71d -R1 Ey TOON a ee es eee 
o &Yf #60 STD STore Double Wj L2=Fi Bi 
ay #67 MXD Multiply eXtended Double FiL2=Fi*WjL2 REAL 
Le] #68 LD Load Double Fi=WjL2 
(#68-#6F resemble #28-#2F) 
| 4#707 07 STE STore Exponential === =—~S Wi=FILLEPTA See es — eae 
2 SEF #78 LE Load Exponential FiCLEFTI=Wj 
SO | (#78-#7F resemble #38-#3F) 
er NN Sd a I SN a i I I II I II ITI I OSS 
S2 
oS a. 


reals 
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Some instructions have this format instead: 

| Drie de SSCA PSs omy oro 1081 tet 581415 16 ete 992012 1922625224: 259263278289290350 31 
For such instructions, here's how to compute k: 

if a#0, k=Ra+tb 

if a=0, k=. b 

The following op codes use that format: 


OP CODE MNEM. WHAT THE MNEMONIC STANDS FOR UAL 
#80 SSM Set System Mask a privileged instruction 
#82 LPSW Load Program Status Word F P=WkL2 
pO 2 #83 nmonegedi agnosessormie 6 10a bow/inak a privileged instruction 
om #84 WRD ~ WRite Direct 9) Sbeea privilegedtinstruction, ©) @) 
ew § #85100 < RDD___ReaD Direct a privileged instruction 
Sos f #86 BXH Branch if indeX Higher SNGRISRitR Sem epeeteN Tetgn | AUS 
IF (j IS ODD) AND (Ri>Rj), P=Wk 
E x nee IF (j IS EVEN) AND (Ri>R(j+1)), P=Wk 
OU #87 BXLE Branch if indeX Lower or Eq. Ri=Ri+Rj 
c= IF (j IS ODD) AND (Ri<=Rj), P=Wk 
i= Wee erpeevonan 8. eh O08 yes ORO) Ly: 1. SAGER CJ PISBEVEN)TAND ((Ris=Rj)5P-Wki. 6 
#88 SRL Shift Right Logical SHIFTRk Ri 
2 7 #89 SLL Shift Left Logical SHIFTLk Ri 
"= 4 #8A SRA Shift Right Arithmetically SHIFTRAk Ri 
” J #8B SLA Shift Left Arithmetically SHIFTLAk Ri 
#8C SRUL Shift Right Double Logical SHIFTRk RiL2 
Wiccmr ome eecOl eG aTUGchOD) We bauees ee ee ee 
"#90__"~ "STM ~STore Multiple” 777777777777“ WRL(J=AF1)=RILEG2HFI)_— 777 
#91 T™ Test Masked TEST BITS #1j OF Mk 
#92 MVI MoVe Immediate Mk=#ij 
#93 TS Test and Set FC343=0 
F£L353=MKE 0] 
Mk=#FF 
#94 NI aNd Immediate Mk=Mk AND #ij 
(#94-#97 resemble #14-#17) 
nc See IM ___Load Multiple oo RIE ce ENE Gict tl eee eee 
#99 CLRIO CLeaR I/O a privileged instruction 
#9C STO (or*SIOF)™ -Start-1/0 (Fast) a privileged instruction 
#9D TIO Test I/0 a privileged instruction 
#9E HIO (or HDV) Halt I/O (or DeVice) a privileged instruction 
PGS emer ete cou. CHAINCIT en eee a_privileged instruction o_o. 
A eAC STNSM STore then aNd System Mask a privileged instruction 
28 {im Lespnu STOSM STore "then! Or System Mask ~~ la privileged instruction’ 97 
OO eis ae SE oo (MUR Jae TI i gpa aiprayiieged instruction ee 
SP ABPEMEMCORU Monitor ’Caliv2y) 87 58575595 IF _MONITORMASK}=1, A148=J;~"FE25]=1, wis6=k 
#B1 LRA S*LOad* Real ‘Address’ | * =? 4757 a privileged instruction - 
#B2 many time, etc. a privileged instruction 
#B6 STCTL STore ConTroL a privileged instruction 
Bros ee Le Ler Loads COnhroh ae i San ee eer @ privileged instruction ss 
wo - { #BA NCS? Oe? Compare and Swap’ ~~) 7 1ee TESRi SNK eNK=R] eer ae hee sm 
= S IF NOT, Ri=Wk 
=u #BB CDS Compare Double and Swap IF RiL2=WkL2, WkL2=RjL2 
eo LG Oe, WEROREODOI GO Rie 2522 ye tty SOWOE Ine LEANOIpeRECosiK ie mere 
EBD W@EMECDMS Compareslogical Masked ia Megne taste hie VCE ASO RO TSS SS Se 
n TEST (BYTES j OF Ri)-MkL(HOW MANY ONES IN j) UNSIGNED 
so #BE STCM STore Characters Masked MkL(HOW MANY ONES IN j)=BYTES j OF Ri 
Oo G_#BF ICM ___Insert Characters Masked _____ BYTES _j_OF_Ri=MkL(HOW MANY ONES_IN_j) 
o Op codes #D1-#F9 handle BCD and COBOL's PICTURE. 
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MICROCOMPUTERS 
A microcomputer is a low-cost computer. The CPU inside a microcomputer is called a 
mickonrocessonr. Usually, a microprocessor is a single chip. 

The first microprocessor ever invented was manufactured by Intel, which called it 
the "Intel 4004". Intel began shipping the 4004 to customers in June 1971. The 4004 
had a 4-bit word: that is, the CPU handled only 4 bits simultaneously. 

A few months later (December 1971), Intel began shipping a better CPU, called the 
8008. The 8008 had an 8-bit word: the CPU handled 8 bits simultaneously. 

In 1973, Intel began shipping an even better CPU, called the 8080. Like the 8008, 
the 8080 had an eight-bit word. The 8080 was better than the 8008 because the 8080 
ran faster, contained more registers, understood more op codes, and could handle a 
larger RAM. 

Today, you can buy several versions of the 8080. The "typical" version is called 
the 8080A. Faster versions are called the 8080A-1 and the 8080A-2. An even faster 
version is manufactured by Advanced Micro Devices (AMD), which has a license from 
Intel; that version is called the 9080A-4. 

While Intel was inventing the 8080, Motorola was simultaneously inventing an 
alternative microprocessor, called the Motorola 6800. Motorola began shipping the 
6800 to customers in April 1974. Like the Intel 8080, the 6800 is an improvement on 
the 8008. 

Which is better: Intel's 8080 or Motorola's 6800? Intel's 8080 is more "powerful": 
it contains a greater variety of registers and a greater variety of op codes. On the 
other hand, Motorola's 6800 is easier to learn how to program; it's simple and elegant, 
like a PDP-11. It's as neat as a garden. (By comparison, the 8080 is as confusing as 
a jungle.) 

When Microsoft wrote ''8K BASIC" for both CPU's, Microsoft discovered that the BASIC 
ran 40% faster on the 6800 than on the 8080A, but unfortunately consumed 10% more RAM. 
So there was no clear "winner". 

Intel's 8080 and Motorola's 6800 both became popular. The heads of those companies 
became rich. The hot-shot engineers who worked for those companies grew jealous of 
their bosses' riches and quit, to start their own companies. 

The top engineers who left Intel formed a company called Zilog. The top engineers 
who left Motorola formed a company called MOS Technology. 

Zilog invented a CPU called the Z-80. It resembled Intel's 8080 but was better. 

It soon began to outsell the 8080. 

MOS Technology invented a CPU called the 6502. It resembled Motorola's 6800 but was 
in some ways better. It soon began to outsell the 6800. 

Those new companies—Zilog and MOS Technology—needed lots of capital. (That was 
especially true of MOS Technology, because that company was sued by Motorola for 
stealing patents, and lost the suit, and had to pay Motorola $200,000 plus heavy 
legal fees.) So Zilog and MOS Technology both tried to convince large companies to 
donate money—or at least invest money. They succeeded: Zilog got money from Exxon, 
and MOS Technology got money from Commodore. But in return for that money, Zilog and 
MOS Technology had to give up their independence. Today, Zilog is part of Exxon, 
and MOS Technology is part of Commodore. 

Zilog's Z-80 is the CPU in computers by Radio Shack (TRS-80 models 1, 2, and 3), 
Sinclair, Zenith, North Star, and Cromemco and most CP/M computers (such as Osborne, 
Vector, Superbrain, Altos, and California Computer Systems). MOS Technology's 6502 
is the CPU in computers by Commodore, Apple, Atari, and Ohio Scientific. 

When Intel and Motorola saw Zilog and MOS Technology taking over the world, Intel 
and Motorola retaliated, by inventing even newer and better microprocessors. To 
improve on Intel's own 8080, Intel invented the 8085, 8086, and 8088. To improve 
on Motorola's own 6800, Motorola invented the 6809 and 68000. Those newest 
microprocessors are being used in the newest microcomputers. For example, Intel's 
8088 is used in the IBM Personal Computer, Motorola's 6809 is used in the Radio Shack 
Color Computer, and Motorola's 68000 is used in Radio Shack's brand-new TRS-80 Model 16. 
So Intel and Motorola might have the last laugh. 


Page 95: Instruction sets 


This family tree summarizes what's been going on: 


Intel 
obsolete 4004 
obsolete 8008 
almost obsolete 8080 6800 

MOS Technology 

most popular 8085 Z-80 6809 6502 
becoming popular 8086 Z-8001 X05 6510 

8088 Z-8002 


Here's the speed of some famous CPU's: 
HOW LONG HOW MANY ''MACHINE CYCLES" TOTAL TIME, TO 
A "MACHINE YOU NEED, TO ADD TOGETHER ADD TOGETHER TWO 


MODEL CYCLE'' IS TWO 8-BIT INTEGERS 8-BIT INTEGERS 
6800 1 US 2 2 us 

68A00 6555S 2 1.3 Pus 
PROMOS 2h tN ewe 1 (Seat Wee 
6502 a5 us 2 1 ‘Sus 
CADE OS MASAO CRiyEM uh. 15 Cust et 
8080A -48 us 4 1.92 us a 
8080A-2 .375 us 4 1.5 9s 

8080A-1 .325 us 4 3 aus 

8085 -525 us 4 Le 345us 
DOSDAEANON SMB emis ATURE ii wo} 1 sae MOO! 
Z- 80 4 us 4 1.6 wus 

Z-80A -25 wus 4 1 Us 

Z-80B .165 us 4 -66 us 


Notice that adding together two short integers takes 2 or 4 cycles, depending on 
your CPU. 

Besides adding, the CPU can do other operations, shown in the tables on the next 
few pages. Throughout the tables, "i'' means any octal digit (from 0 to 7), "j" 
means any pair of hexadecimal digits (from (#00 to #FF), and "k'"' means any four 
hexadecimal digits (from #0000 to #FFFF). For example, if the table says the CPU 
can do Mi=Mi+l, it means you can make the CPU do each of these: MO=M0+1, M1=M1+1, 
M2=M2+1, M3=M3+1, M4=M4+1, MS=M5+1, M6=M6+1, and M7=M7+1. 

Throughout the tables, ''c'' means any of these IF-clauses.... 
IF-CLAUSE, IN UAL: IF N=1 IF N=O0 IF Z=1 IF Z=0 IF C=1 IF C=0 IF V=1 MIF V=0 
MNEMONIC ON 6800 §& 6502: PL EQ NE CS CC VS vc 
MNEMONIC ON 8080 §& Z-80: P Z NZ C NC PE PO 
On the 8080, which doesn't have a V flag, the mnemonic PE means "IF PARITY=1", and 
the mnemonic PO means "IF PARITY=0''. On the 6800, additional mnemonics are available: 


UAL: |IF (Z OR C)=1 if =0 | IF (N XOR V)=1 if =0 | IF (Z OR (N XOR V))=1 if =0 
LS HI 


6800: LT GE LE GT 
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Instruction set for Motorola's 6800 
I'll use these symbols: 
SYMBOL MEANING 


r A OA B 
m Mj O% Mk OA M(j+X) 
mj Mj O% Mk OA M(j+X) or j 


mm MjL2 04% MKL2 OA M(j+X)L2 

mmk MjL2 0% MKL2 04 M(j+X)L2 0A k 

mr Mk OX M(j+X) OX A OA B 

xk jtX or” k 

Here's the instruction set: 

PURPOSE UAL MNEMONIC CYCLES PURPOSE UAL MNEMONIC CYCLES 
increment mr=mr+l 
S=S+1 INS 4 
X=X+1 INX 
decrement mr=mr-1 DEC 


ig 


S=S-1 DES wn =X 
X=X-1 DEX = =S 
ic |add r=r+mj ADD 2-5 xe) j 
6 r=r+mj+C ADC 2-5 ‘e)) 
E A=A+B ABA S 
subtract r=r-mj SUB 2-5 Q 
5 


4 
2 
4 
4 
2 
2 
2 
2 
r=r-mj-C SBC 2 
A=A-B SBA 2 
egate mr=-mr NEG 2 
ADJUST A 2 
r=r AND nj 2-5 
r=r OR mj ORA 2-5 
xor r=r XOR mj = EOR 2-5 
ot mr=NOT mr COM 2-7 
shiftl SHIFTL mr ASL 2-7 
2-7 
2-7 
2-7 
2-7 
2-7 
2 
2 
2 
2 
2 
2 
2 
2 
3 
2 
2 


continue CONTINUE 
ait M(S-1)L2=P, 

M(S-4) =A, 

M(S-6) =F, 
M(S-1)L2=P, 
M(S-1)L2=P, 
M(S-1)L2=P, 

M(S-4) =A, 

M(S-6) =F, 

P=M#FFFAL2 
S=S+2, P=M(S-1)L2 
S=S+7, F=M(S-6), 

B=M(S-5), A=M(S-4), 
X=M(S-3)L2, P=M(S-1)L2 


shiftr SHIFTR mr LSR 
SHIFTRA mr ASR 
rotatel ROTATEL C mr ROL 
rotater ROTATER C mr ROR 
v|clear mr=0 CLR 
V=0 CLV 
C=0 CLC 
PRIORITY=0 CLI 
set V=1 SEV 
C=1 SEC 
PRIORITY=1 SEI 
est TEST mr TST 
TEST r-mj CMP 
TEST X-mmk CPX 
TEST A-B CBA 
TEST r AND mjBIT 


ram counter 
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Instruction set for MOS Technology's 6502 
I'll use these symbols: 
SYMBOL MEANING 
m Mj 0% Mk 
mj Mj O% Mk OA j 
mx Mj 0% Mk OA M(j+X) 
mxk Mj O% Mk OA M(j+X) OA M(k+X) 
mxkj Mj O% Mk OA M(j+X) O% M(k+X) 04 j 
mxka Mj O% Mk OA M(j+X) OA M(k+X) OX A 
my Mj 0% Mk 0% M(j+Y) 
mykj Mj O04 Mk OA M(j+Y) O% M(k+Y) OA jj 
mykj Mj 04 Mk OA M(j+Y) 0% M(K+Y) 0% j 
mxy Mj 0% Mk OA M(j+X) 0% M(k+X) 04 M(M(j+X)L2) 0% M(k+Y) 0% M(MjL2+Y) 
mxyj Mj 0% Mk OA” M(j+X) OA M(k+X) OA M(M(j+X)L2) OA M(k+X) OA M(MjL2+Y) OA j 


Here's the instruction set; for mnemonics ADC and SBC, the arithmetic is decimal 
(instead of binary) if the flag register's DECIMAL bit is 1: 
PURPOSE UAL MNEMONIC CYCLES PURPOSE UAL MNEMONIC CYCLES 
increment mxk=mxk+1 =X 

X=X+1 X=A 

Y=Y+1 A=Y 
decrement mxk=mxk-1 Y=A 

X=X-1 S=X 

Y=Y-1 X=S 

A=A+mxyj+C A=mxyj 

A=A-mxyj-C X=mykj 

A=A AND mxyj Y=mxkj 

A=A OR mxyj mxy=A 

A=A XOR mxyj my=X 

SHIFTL mxka mx=Y 

SHIFTR mxka M(S)=A, S=S-1 


math 


moving bytes 


logic 


ROTATEL C mxka 
ROTATER C mxka 
V=0 

C=0 

DECIMAL=0 
PRIORITY=0 

C=1 

DEC IMAL=1 
PRIORITY=1 
TEST A-mxyj 
TEST X-mj 

TEST Y-mj 
TEST A AND m 


M(S)=F, S=S-1 

S=S+1, A=M(S) 

S=S+1, F=M(S) 

P=mk 

IF c, P=P+j 

CONTINUE 

M(S-1)L2=P, S=S-2, P=k 

M(S-1)L2=P, M(S-2)=F, 
S=S-3, PRIORITY=1, 
BREAK=1, P=M#FFFEL2 

S=S+2, P=M(S-1)L2, P=P+1 

S=S+3, M(S-2)=F, 
M(S-1)L2=P, P=P+1 


6 
6 
6 
6 
6 
7 
7 
di 
i 


program counter 
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Instruction set for Intel's 8080 
I'll use these symbols: 
SYMBOL MEANING 


Yr A 0A B OA CR OA D OX E OA H OA L 

rm A 0% B OA CR OX D OX E OA” H OA L OA M(H L) 
rs B-CR 04 DEMOASH LeO7cS 

raf BCR OA DE OAHLOAAF 

m M(B CR) 0% M(D E) 


Here's the instruction set: 


PURPOSE UAL MNEMON IC 


rm=rm+1 
rs=rstl 
rm=rm-1 
rs=rs-1l 
A=A+rm 
A=A+rm+C 
A=A+j 
A=A+3+C 

H L=(H L)+rs 
A=A-rm 
A=A-rm-C 
A=A-j 
A=A-j-C 
ADJUST A 
A=A AND rm 
A=A AND j 
A=A OR rm 
A=A OR j 
A=A XOR rm 
A=A XOR j 
A=NOT A 
C=NOT C 
ROTATEL A 
ROTATEL C A 
ROTATER A 
ROTATER C A 
PRIORITY=0 
PRIORITY=1 
C=1 

TEST A-rm 
TEST A-j 


PURPOSE UAL MNEMONIC CYCLES 
ransfer rm =rms 
load A=Mk LDA 13 
A=m LDAX 7 

H L=M(k+1) Mk 


4) 

oO 

ad 

SS 

He} 

e H L= =DE 

5 H L= =S SPHL 5 

2 H L= =M(S+1) M(S) XTHL 18 
input A=PORTj IN 10 
output  PORTJ=A OUT 10 


S=S-2, M(S+1) M(S)=raf 
raf=M(S+1) M(S), S=S+2 


P=H L 


jump if IF c, P=k Je 0 
= continue CONTINUE NOP 4 
5 wait WAIT HLT 4-0 
9 |call S=S-2, M(S+1) M(S)=P, P=k CALL 17 
= S=S-2, M(S+1) M(S)=P, RSTn 
WY P=#8*i 
Micall if IF c, S=S-2, Coeriia7 
a M(S+1) M(S)=P, P=k 
return P=M(S+1) M(S), S=S+2 RET 


return ifIF c, P=M(S+1) M(S), S=S+2 Rc 
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Instruction set for Zilog's Z-80 
I'll use these symbols: 


SYMBOL MEANING SY. MEANING 

% A OX B OX CR OX D OX E OA H OA L am A F 0’ D E 04’ M(S+1) M(S) 
rm r OX M(H L) 0% M(j+X) O04” M(j+Y) ax A F 0X BCR 04’ DE OA” 

rmj rm Ot j H L 0% X OXY 

rms rm 041 BCR OX DE OX HL OAS ON X ONY ah AOA HL 

rmsz rms 0% M(B CR) 0A M(D E) 0% M(k+1) Mk o&% IV OX RE ahx A OX HL OA X ONY 

n 0 02 1 on 2 u depends on other operands 
Here's the instruction set: 


PURPOSE UAL MNEMONIC CYCLES PURPOSE UAL MNEMONIC CYCLES 
increment rms=rms+l INC 4-23 rms Z=u LD 4-20 
rms=rms-1 DEC 4-23 M(D E)=M(H L), LDI 16 
B=B-1, DJNZ 8-13 D E=(D E)+1, H L=(H L)+1, 
IF B<>0, P=P+j B CR=(B CR)-1 
ahx=ahx+u ADD WHILE B CR<>0, LDIR 16-0 
ah=ah+u+C ADC M(D E)=M(H L), D E=(D E)+1, 
A=A-rmj SUB H L=(H L)+1, B CR=(B CR)-1 
ah=ah-u-C SBC hike the two above, but LDD, LDDR 
=-A NEG change each "+1" to "-1" 
ADJUST A DAA IMODE=n 
A=A AND rmj_ AND am= = 4-23 
A=A OR rmj_ OR B CRD EH L= = 4 
A=A XOR rmj XOR BZsGRZeD2sbZenZeu2 
A=NOT A CPL r=PORT (u) 10-11 
C=NOT C CCF M(H L)=PORT (CR), 15 
SHIFTL rm SLA H L=(H L)+1, B=B-1 
SHIFTR rm SRL WHILE B<>0, 15-0 
ROTATEL rm  RLC M(H L)=PORT(CR), H L=(H L)+1, B=B-1 
ROTATEL A RLCA Like the two above, but IND, INDR 
ROTATEL C rm RL change "+1" to "-1" 
ROTATEL CA RLA 4 Like input, but put OUT, etc. 
ROTATEL4 RLD 18 UPORT (@)) "04a FORT (CR)” 
A[RIGHT] M(H L) keft of the equal sign 
Like RRC, etc. S=S-2, M(S+1) M(S)=ax PUSH 11-15 
hotatek, but change ax=M(S+1) M(S), S=S+2 POP 10-14 
"ROTATEL" to "ROTATER" P=hxk JP 4-10 
PRIORITY=0 EI P=P+j JR 12 
rm[i]=0 RES IF c, P=k JP c 10 
PRIORITY=1 DI IF Z=1, P=P+j JR Z 7-12 
C=1 SCF IF Z=0, P=P+j JR NZ 7-12 
rm[i]=1 SET IF C=1, P=P+j JR Gia7=12 
TEST A-rmj CP IF C=0, P=P+j JR NC 7-12 
TEST CPI CONTINUE NOP 4 
A-M(H L), H L=(H L)+1, WAIT HALT 4-0 
B CR=(B CR)-1 S=S-2, M(S+1) M(S)=P, P=k CALL 17 
WHILE CPIR 16-« S=S-2, M(S+1) M€S)=P, RST. elt 
B CR<>0 AND A<>M(H L), P=#8*i 
H L=(H8L)+1 an IF ¢, S=5-2, CALL c10-17 
B CR=(B CR)-1 M(S+1) M(S)=P, P=k 
kike the CPD, CPDR P=M(S+1) M(S), S=S+2 RET ~ 10 
4wo above, but change PRIORITY=0, IRETURN=2, RETI 14 
ALES woe P=M(S+1) M(S), S=S+2 
BIT 8-20 PRIORITY=0, IRETURN=3, RETN 14 
P=M(S+1) M(S), S=S+2 
return if IF c, P=M(S+1) M(S), RETacy5=11 
$=S+2 


math 


CO fC COCO HP HHA AI HPOHHHAH 
moving bytes 


N 
WN 


program counter 
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CONGRATULATIONS! YOU'VE FINISHED THE SECRET GUIDE'S FINAL VOLUME. 
HERE'S THE "TABLE OF CONTENTS" FOR EACH VOLUME YOU'VE CONQUERED. 


VOLUME 1 VOLUME 5 
POPULAR BASIC POPULAR APPLICATIONS 
Chat with your computer Change your life ii 
Your first steps 5 Fall in love 2 
Errors 12 Create poetry & prose 8 
Fun 14 Translate Russian 21 
Math 22 Analyze yourself 22 
Make your computer think Analyze writing 32 
: Create art 34 
Variables 26 55 
Input 30 Replace people a 
Auxiliary memory 36 Buy wisely 
Hoeic be VOLUME 6 
Master your computer HASSLES IN APPLICATIONS 
Helpful hints 44 ie 
Paired statements 48 Surprise! 
62 
Popular features VOLUME 7 
Tackle the tough stuff POPULAR LANGUAGES 
Loop techniques 69 Fortran 
Subscripts 78 Fun 0 
VOLUME 2 pine! 
HASSLES IN BASIC Le ie 
Prettier programs 13 
Warm-up 6 Logic 14 
Keyboard 8 Lists 18 
Elements 12 Fancy formats 23 
How to say "IF" 16 Functions 25 
Tricky logic 20 Exotic features 28 
Errors 29 
eae 39 Pascal 
Fundamentals 43 ats a 
Style 62 ‘ 
Tricky functions 75 Exotic features 48 
Fastest programs 82 Cobol | 
Data files 92 Fun 36 
Variables 63 
VOLUME 3 Logic 70 
POPULAR SYSTEMS Structures 76 
Fondamentsla 9 Exotic features 90 
j 13 
Meer a VOLUME 8 
CPU 44 HASSLES IN LANGUAGES 
Popular micro's 45 Personal comments 
Alternative micro's 60 Using the Guide 0 
Industry news 3 
VOLUME 4 : 
HASSLES IN SYSTEMS High-level languages 
Language survey 8 
Before you buy 2 Classical languages 14 
Popular companies 11 Modern languages 57 
Adv. purchasing 21 
Play with bits 39 Low-level languages 
Professional growth 49 ee U Sheth 48 
Whattolread 66 Instruction sets 81 


Courses to take 72 


Te 
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SPECIAL OFFER 


Thanks for reading the tenth edition of The Secret Guide to Computers. How could the 
eleventh edition be better? Tell me. I'm planning many changes, but maybe you can 
suggest more. 

I'd enjoy meeting you in person. If possible, visit my intensive computer course, 
which I run every summer at Wesleyan University in Connecticut. It digs deeper than 
The Secret Guide to Computers: 


You learn how to program in all the major computer languages. 

You get extensive experience on all the popular microcomputers (and maxi's, too). 
You use all the popular applications packages (for business, arts, and education). 
You develop the verbal and mental skills to become a leader of the computer industry. 


Graduates of the previous eight summers are running many computer companies: I hope 
you will too! 
You can choose your own schedule: come for 1 week, or 4 weeks, or 7 weeks. 
Join us! The instruction is almost free— and so is the housing. For full details, 
use the coupon below. 


COUPON 


The Secret Guide to Computers consists of eight volumes.... 


Volume 1: Popular BASIC Volume 2: Hassles in BASIC 
Volume 3: Popular Systems Volume 4: Hassles in Systems 
Volume 5: Popular Applications Volume 6: Hassles in Applications 
Volume 7: Popular Languages Volume 8: Hassles in Languages 


Volume 1 explains how to program (and operate) the computer. 

Volume 2 digs even deeper into programming. 

Volume 3 explains equipment jargon, and gives the history of popular companies. 
Volume 4 is a consumer's guide to the newest equipment, schools, and careers. 
Volume 5 explains how computers can help you, and tells which software to buy. 
Volume 6 digs deeper into the techniques introduced in volume 5. 

Volume 7 explains how to program computers that are big. 

Volume 8 digs into the most advanced (and exotic) programming languages. 


Circle the volumes you want: 1 2 3 4 5 6 7 8 $3.70 each; $29.60 for all eight. 
Mass. residents add 5% sales tax. 


FREE brochures are available on the following topics; check off the ones you want: 
___ the summer course at Wesleyan University 
future editions of The Secret Guide to Computers 


___ The Secret Guide to Tricky Living (volume 1 is "Sex"; volume 2 is "Everything But") 


On the other side, write your name, address, and any comments you have (pro or con) 
about The Secret Guide to Computers. Make check or money order payable to 
Russell M. Walter. Send to Russ Walter, 92 Saint Botolph St., Boston, MA 02116. 
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After riding the waves of the computer reunlution, ye shall finn PEACE. 


